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| Line-by-Line. 


COS'E' UN' ISTRUZIONE IN ASSEMBLER 





da utilizzare sia con la MINIMEMORY 
e sia con l' kditor ASSEMBLER, 


FORMATO DELLE ISTRUZIONI IN LINGUAGGIO SORGENTE 


Un programma sorgente in Assembler è formato da istruzioni in 
codice che possono contenere direttive di assemblaggio,istru= 
zioni di macchina,pseudo istruzioni commenti, 


Ogni linea ( o record ) di istruzioni sorgente consiste in un 
massimo di 80 caratteri di informazioni inclusi gli spazi. Un 
record può essere suddiviso in più sezioni di lunghezza varia= 
bile chiamati campi. 

Il CAMPO ETICHETTA (label) è posizionato all'inizio dell'istru= 
zione sorgente e serve come punto di riferimento, 





Il CAMPO OP-CODE è il codice operativo( un numero, un nome , o 
un'abbreviazione) della azione che deve compiere l'istruzione 
sorgente. 





IL CAMPO OPERANDO specifica il valore su cui l'istruzione agi= 
scejpuò essere un numero, una stringa, un indirizzo etc etc, 


IL CAMPO COMMENTO è un'area in cui potete aggiungere commenti 
per migliorare la lergibilità del programma ma esso non influ= 
enza le operazioni del computer, 





Le definizioni di sintassi descrivono la forma richiesta per 
l'uso dei comandi in relazione ai campi, 


LA SEZIONE 4 descrive le procedure di scrittura e definisce i 
dettagli, 


Nelle definizioni sintattiche relative alle istruzioni di mac= 
china ed alle direttive di assemblaggio vengono usate le seguen= 
ti convenzioni. ({ vedi manuale del Ti pag. 31 ) e 


° Le parentesi angolari indicano un elemento da voi de= 
finito, 


© Il simbolo b rappresenta uno o più spazi( o blanks) 


La sintassi ( cioè la forma richiesta ) per l'istruzione sor= 
gente è la seguente: 


[1abe17] b op-code b le operando 3] [< operando)] b[<commento>] 


Come indica questa definizione di sintassi, una istruzione sor= 
gente può avere ufia etichetta da voi definita, Uno o più spazi 

separano l'etichetta dall' op-code . Il generico termine op-code 
include codici operativi mnemonici, direttive di assemblaggio, 

e potete dunque inserire uno di questi elementi, 


Uno o più spazi separano l' op-code dall'operando, quando è ri= 
chiesto un operando, Operandi addizzionali, quando servono, devo= 
no essere separati da virgole. Uno o più spazi separano l'opern= 
do o gli operandi dal campo commento, NOTA: Anche se la lunghez= 
za massima di un record sorgente è 80 caratteri, quando lo lista= 
te sono stampati solo i primi 60 caratteri di ogni linea, 


CAMPO ETICHETTA 


Il Campo Etichetta comincia col 1° carattere del record sorgente 

e termina al primo spazio seguente, Il campo etichetta è un sim= 
bolo contenente fino a sei caratteri, il primo dei quali DEVE es= 
sere alfabetico, Gli altri caratteri possono essere invece alfa= 
numerici. Una etichetta opzionale è per le istruzioni di macchina 
e per molte direttive di assemblaggio, Quando l'etichetta è omessa 
il primo carattere del record DEVE essere uno spazio. 

Una istruzione SORGENTE formata solo da un CAMPO ETICHETTA è una 
istruzione valida, Ha l'effetto di assegnare la locazione corren= 
te all'etichetta. Di solito ciò è equivalente a piazzare l'etichet= 
ta nel campo etichetta della seguente istruzione di macchina o di= 
rettiva di assemblaggio. 


[cAMPO ISTRUZIONE) 

Il campo istruzione comincia dopo lo spazio che chiude il campo 

etichetta oppure nel primo carattere che non è uno spazio seguente 

la prima posizione del record se l'etichetta è omessa, Il campo 

istruzione termina con uno o più spazi e non può superare il 60° 

carattere del record sorgente, 

Il campo istruzione contiene un op-code che può essere uno dei se= 

guenti: 

© )codice operativo mnemonico di una istruzione di macchina, 

© )codice operativo di una direttiva di assemblaggio 

° )simbolo assegnato ad una "extended operation" da una direttiva 
DXOP 

°)codice operativo di una pseudo istruzione, 


[cAMPO OPERANDO) 


Il campo operando comincia dopo lo spazio che conclude il campo is= 
truzione. Non può oltrepassare la 60° posizione del kKECORD SORGENTE, 
Il campo operando può contenere una o più espressioni,variabili.o 
costanti in accordo a ciò che richiede il particolare op-code, Il 
campo: operando termina con uno o più spazi. 

CAMPO o CO)VENTO/ e linea di COMMENTO comincia dopo lo spazio che 
chiude il campo operando e può estendersi fino alla fine del re= 
cord sorgente se necessario. Il campo commento può contenere qua= 
lunque carattere ASCII incluso gli spazi .  Unalinea o istruzione di 
commento consiste in un singolo campo che comincia con un asterisco 
e continua con qualunque carattere ASCII inclusi gli spazi, in qua= 
lunque ordine. x 
Le istruzioni di commento sono stampate nel listato del codice sor= 
gente ma non hanno altri effetti sull'assemblatere Una linea com= 
posta esclusivamente di spazi è considerata una linea di commento, 












LINE - BY - LINE ASSEsMBLER 
QUELLO CHE IL MANUALE NON DICE 


Il Line - by - Line Assembler é un assembler istantaneo. Ciò 
significa che ogni istruzione sorgente é tradotta in codice mac- 
china e memorizzata nella Mini Memory subito dopo averla scritta. 
Potete immediatamente vedere il codice generato, poiché la tra- 
duzione é estremamente veloce. Se fate riferimento in una istru- 
zione ad una label che non avete ancora definito, l'Assembler 
genera un riferimento (si vede una R). Quando più avanti la la- 
bel sarà definita, l'Assembler riaggiusterà gli indirizzi davan- 
ti ai vostri occhi. In ogni momento potete stampare la Tavola 
dei Simboli per rivedere le label che sono state definite e quel- 
le ancora sospese. Nel momento in cui terminate di scrivere il 
vostro programma, il codice macchina é già nella Mini Memory 
pronto ad essere eseguito. Dovete solo inserire il punto di ini- 
zio del programma nella Tavola REF/DEP e riaggiustare il pun- 
tatore LPAM (Last Free Andress in Memory, ultimo indirizzo libe- 
ro in memoria). 

L'Assembler stesso e la Tavola dei Simboli risiedono nella Mini 
Memory. Ciò aumenta la sua velocità, ma riduce lo spazio dispo- 
nibile per il vostro programma. 

Il Line - by - Line Assembler usa praticamente le locazioni com- 
prese tra >7II8 (28952) e>7CD7 (31959). La tavola dei Simboli 
parte dalla locazione>7CD8 (31960) e si espande verso> 7FFF 
(32767). (La sua lunghezza dipende dal numero di label che usa- 
te nel programma). Il punto di inizio di default per il vostro 
codice oggetto é >7D00 (32000), il che lascia spazio nella Ta- 
vola dei simboli per nove labels. Inoltre per usare il Line - 

by - Line Assembler dovete avere i suoi due punti di entrata 
(OLD e NEW) nella Tavola REF/D=P, insieme a quello del program- 
ma che state scrivendo, Ciò significa che gli indirizzi compre- 
si tra>7758 (32744) e>7FPF (32767) sono occupati dalla Tavola 
R=5P/DEP. Quindi con le precedenti suddivisioni avete a disposi- 
zione 744 bytes per il vostro programma (da>7D00 a>7FE7). 

Se non usate nessun nome siîrbolico, il vostro programma può par- 
tire dalla locazione>7CE0 (31968) guadagmando così 32 bytes, 

ma é molto difficile programmare senza labels o simboli. Se in- 
vece volete usare più di nove labels, dovrete far partire il 
vostro programma da indirizzi più grandi di> 7D00 (con una di- 
rettiva AORG), ma ciò chiaramente fa diminuire lo spazio dispo- 
nibile. Il semplice programma LINES compreso nella confezione 
della MINI MEMORY illustra un punto importante riguardo la lun- 
ghezza del programma. Quando caricate per la prima volta i pro- 
grammi da nastro, sia il Line by Line Asserbler che Lines sono 
presenti nella Mini Memory. Le istruzioni di programma e le aree 
dati di Lines occupano le locazioni comprese tra>7D00 e> 7FE7. 
Se eseguite il programma Lines l'Assembler non é più presente in 
memoria, perché Lines usa come area di lavoro delle locazioni 
comprese tra>7II8 e>7D00. Questo fatto mette in chiaro due 
punti: I. non é necessario che l'Assembler sia presente in memo- 
ria durante l'esecuzione di un programma scritto da voi e 2, po- 
tete usare altre aree di RAM come Workspace quando eseguite il 
programma se non lo inizializzate in anticipo, In questo modo 
potete usare l'Assembler per scrivere programmi che sono in realtà 
molto più ampi di 744 bytes. 


LINE - BY - LINE ASSEMBLER 


INTRODUZIONE 


La cassetta audio inclusa nella confezione della Mini Memory 
contiene un Assemblatore simbolico linea - a - linea ed un 
programma dimostrativo grafico chiamato Lines, L'assemblato- 
re linea - a —- linea vi permette di scrivere istruzioni in 
linguaggio sorgente Assembly del TMS9900, unalinea alla volta 
direttamente dalla tastiera della vostra console. Il program- 
ma dimostrativo Lines traccia automaticamente linee colorate 
sullo schermo del computer. 


Quando caricate un programma Assembler nel Modulo Mini Memory, 
ogni istruzione sorgente che scrivete viene immediatamente as- 
semblata (tradotta) nel codice oggetto ed inserita nelle lo- 
cazioni di memoria da voi specificate. Quindi una volta comple- 
tata la scrittura del vostro programma e scritto il suo nome 

e l'indirizzo di partenza nella tavola REP/D3P, esso é pronto 
per essere eseguito. 


NOTA IMPORTANTE: Siccome ogni volta che scrivete una linea di 
programma le istruzioni vengono assemblate e memorizzate in 
modo diretto, siate sicuri che le locazioni di memoria speci- 
ficate nel vostro programma siano disponibili, In caso contra- 
rio nessun codice sarà generato o memorizzato. 


Anche se l'Assembler converte ogni istruzione in codice macchi- 
na una linea alla volta nel momento in cui viene inserita, i 
codici sorgente sono memorizzati in un Buffer di testo lungo 
rave pagine. Avete quindi la possibilità di rivedere le linee 
di programnra già scritte muovendo lo schermo in verticale con 

i tasti "Freccia in su" e "Freccia in giù". 


Questo manuale illustra le possibilità dell'Assembler linea-a- 
linea assumendo che il lettore già conosca la programmazione 
in Assembler. Per una completa guida all'Assembler del TMS9900 
vi consigliamo di consultare il Manuale dell'Editor/Assembler. 
Inoltre in questo manuale sono descritte le modalità per cari- 
care ed eseguire il programma dimostrativo Lines. (Vedi la se- 
zione "Caricare l'Assembler linea - a - linea") 
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LINE - BY - LINE ASSEMBLER 


Carichiamo l’Assembler Line - - Line 


Sia il Line - by - Line Assembler cile il programma grafico LINES 
vengono caricati da nastro nello stesso tempo attraverso il 
comando L (LOAD) dell'opzione SASY BUG Debugger. I passi che se- 
guono descrivono le operazioni di caricamento. 


I. 


Con il modulo Mini Memory inserito nella console, collegate 
il vostro registratore a cassette nel modo descritto dal 
hianuale d'uso del Computer. 


Premete un tasto qualunque per far apparire la lista di se- 
lezione principale e scegliete l'opzione MINI MEMORY, 
vuando appare la lista di selezione della MINI MEMORY, pre- 
mete 3 (REINITIALIZE) per preparare la memoria al carica- 
mento di un nuovo programma. Quindi premete QUIT per torna- 
re el Titolo Irincipale. 


Inserite la cassetta dell'Assembler rel registratore e riav- 
volgeive il nastro. 


Premete un tasto qualunque per far apparire la lista di se- 
lezione principale e selezionate l'opzione EASY BUG, 


Quando appare la descrizione dei comandi dell'EASY BUG, pre- 
uete un tasto qualunque per cancellare lo schermo. Quindi 
scriveve L e premete ENTER per far partire la procedura di 
caricamento. Da questo momento in poi il computer stampa 
delle istruziori ver aiutarvi a procedere. 


Dopo che il programna Assembler è stato caricato, premete 
QUIT per tornare al Titolo Principale. Quindi premete un 
tasto qualsiasi per far apparire la lista di selezione prin- 
cipale, e selezionate l'opzione MINI MEMORY, 


quando appare la lista di selezione di MINI MEMORY, premete 
2 per scegliere l'opzione RUN, Lo schermo si cancella ed il 
computer vi chiede il nome del programma che volete esegui- 
re. 


A. Se volete eseguire il programma LINES, scrivete LINES e 
premete ENTER. Questo programma traccia linee colorate 
sullo schermo. Se premete il tasto C, potete "congelare" 
il colore della linea appena tracciata, e tutte le linee 
seguenti avranno lo stesso colore. Premendo ancora C 
cancellate questa possibilità. Per fermare il programma, 
premere QUIT. 
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LINE - BY - LINE ASSEMBLER 


B. Se volete scrivere un nuovo programma in linguaggio Assembly 
scrivete NEW e premete ENTER. Il computer entra in ambien- 
te Assembler, cancella la Tavola dei Simboli (di cui parle- 
remo più avanti) e aspetta che scriviate tà vostra prima 
linea di programma. 


C. Se volete continuare a scrivere o modificare un programma e- 
sistente, scrivete OLD e premete ENTER. La Tavola dei Simbdi 
preesistente sarà conservata ed il computer mostrerà la pri- 
ma locazione di memoria libera pronto a continuare il vostro 
programma. 


Nota: nel vostro modulo MINI MEMORY possono essere già caricati 
i programmi LINES e Assembler. Per accertarvene, selezionate 
l'opzione RUN della MINI MEXORY e scrivete il nome di programma 
appropriato quando appare la richiesta del computer. Se é pre- 
sente il programma sarà eseguito immediatamente. Se il program- 
ma invece non é stato ancora caricato, il computer stampa la 
frase "PROGRAM NOT POUND". 


Potete anche vedere il codice del programma LINES utilizzando 
il comando M dell'EASY BUG. Scrvendo solo M7CD6 e premendo 
ENTER, potete stampare tutte le linee di codice senza modi- 
ficarle. 


NOTA IMPORTANTE: Quando scrivete ed assemblate un programma, la 
tavola dei simboli si può sovrapporre a parti del programma 
LINES. Quando vorrete eseguire ancora LINES bastera semplice- 
mente ricaricare il programma da nastro nella memoria del 
modulo. 
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LINE - BY - LINE ASSEMBLER 
Sintassi dell'Assembler 


Ogni linea (o record) del vostro programma sorgente é composta 
da quattro sezioni chiamate CAMPI. Questi campi, se presenti 
(alcuni sono opzionali), devono essere scritti nell'ordine e 
nel formato (sintassi) richiesti dal programma Assembler. In 
questo manuale nelle definizioni di sintassi relative alle 
istruzioni ed alle direttiv: di assemblaggio si applicano le 
seguenti convenzioni: 


I. I campi in lettere maiuscole, inclusi i caratteri speciali 
devono essere scritti esattamente come arpaiono. 


2. I campi in parentesi quadre sono opzionali. 
3. I campi in parentesi angolari sono obbligatori. 
4. Una b minuscola indica uno spazio. 
5. Una b minuscola seguita da tre punti (b...) indica uno o 
più spazi. 
La sintassi generale di una istruzione Assembler é la seguente: 
[Label] b.. <opcode>b (operandg] [, operando] [b...commentq] 


Il campo label (etichetta) Aeve contenere uno o due caratteri 
di cui il primo alfabetico oppure se omettiamo una label deve 
contesere uno spazio. Il secondo carattere di una label (se 
presente) può essere alfanumerico. La label é seguita da uno o 
più snazi. Se non scrivete l'etichetta, una pressione della 
Barra Spaziatrice sposta il cursore automaticamente all'inizio 
del cainpo opcode. 


Il campo apcode contiene il Codice Operativo dell'azione che 
deve essere eseguita attraverso l'istruzione sorgente. Questo 
campo é composto da uno fino a quattro caratteri alfabetici, 
come ad esempio A per Add oppure AORG per la direttiva Absolute 
origin. Esso é seguito da un solo spazio. 


Il Campo Operando contiene uno o due operandi a seconda del ti- 
po di istruzione specificata nel campo Opcode. Notate che il 
campo operando non richiede spazi all'interno di esso, ed ope- 
randi multipli sono separati solo da virgole. Il campo operan- 
do si chiude premendo la Barra Spaziatrice (ed il cursore si 
posiziona sul campo commento) oppure premendo ENTER ( così si 
chiude la linea). Se una istruzione non richiede operandi, il 
campo operando si omette. 


Il Campo Commento può includere qualsiasi carattere, e conti- 
nua finché non premete ENTER per terminare la linea di pro- 
gramma. 
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Il Line - by - Line Assembler predefinisce alcuni simboli. 
Quando un operando include il simbolo del Dollaro ($) come ca- 
rattere iniziale, esso é considerato riferirsi al contatore di 
locazione. Per esempio, alla locazione>7D00, l'istruzione 


JMP_$+8 
e l'istruzione 
JMP >7DO8 


sono considerate equivalenti. Quando specificate registri come 
operandi, potete usare il simbolo R seguito da un numero deci- 
male, Tuttavia le istruzioni 

MOV R2,RI5 
e 

ZOV 2,15 
sono equivalenti. 


Nota : il sistema di numerazione standard per il Line - by - 
Line Assembler é il decimale; i numeri esadecimali sono indi- 
cati del prefisso "maggiore di" (>). 


DIRETTIVE DI ASSEMBLAGGIO 


Questa sezione descrive le sette direttive di assemblaggio ri- 
conosciute diall' assembler Line - by - Line. Una direttiva non 
deve essere confusa con una istruzione del linguaggio Assembly, 
che dice al Microprocessore di eseguire solo una singola istru- 
zione, come ad esenpio Add o Move, Le direttive sono invece co- 
mandi di aiuto aila prograumazione che dirigono il programma 
Assembler ad eseguire certe istruzioni, e l'assembler può ese- 
guire più istruzioni per soddisfare una sola direttiva. (Per 
una descrizione delle istruzioni del linguaggio Assembly del 
TMS 9900 consultare il uanuale dell' EDITOR / ASSENBLER). 

Le direttive che descriveremo sono : 


AORG Absolute Origin 

BSS Block Starting with Symbol 

DATA Word Initialization 

END End Program 

ELU Assembly - Time Constant Definition 
SY Symbol Table Dysplay 

TEXT String Constant Initialization 
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AORG - Absolute Origin 
Formato : [iabei] AORG<indirizzo> 


Questa direttiva può essere usata per posizionare il contatore 
di locazione ad un valore specifico (che deve essere sempre un 
indirèzzo pari) durante le operazioni in assembler. Generalmen- 
te viene usata come prima azione di un programma per selezio- 
nare la locazione di partenza del codice assemblato; comunque 
può essere usata in qualunque momento durante la scrittura di 
un programma. 


Esempio : 


AORG >7D80 Ottiene che la successiva istruzione as- 
semblata sia memorizzata partendo dalla 
locazione >7D80. 


BSS - Block Starting with Simbol 
Formato : f[label] BSS <numero di bytes da riservare> 


La direttiva BSS riserva un blocco di memoria (per la memoriz- 
zazione di variabili o per area di lavoro dei registri) senza 

inizializzarlo. Partendo dall'indirizzo specificato nella la- 

bel, l'Assembler incrementa il contatore di locazione del nu- 

mero di bytes specificato nella direttiva. 


Il numero di bytes deve essere zero o positivo. Il valore ri- 
sultante nel contatore di locazione é arrotondato per eccesso 
ad un numero pari se necessario. In altre parole il bit meno 
significativo dell'indirizzo viene troncato se il valore risul- 
tante é dispari. 


Esempio: 


WS BSS 32 Supposto che WS si riferisca alla lo- 
cazione 7D00, viene incrementato il 
contatore di locazione fino a 7D20 
riservando un blocco di 32 bytes come 
area di lavoro. 
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DATA : Word Initialization 
Pormato : [Label] DATA <valore> 


La direttiva DATA vi permette di inizializzare una o più paro- 
le di memoria ad un particolare valore. Questa direttiva é par- 
ticolarmente utile quando dovete inserire una serie di dati 
come parte del vostro programma. Potete inserire una direttiva 
DATA, nel campo OPCODE seguita da una costante o da un simbolo 
come operando, in un punto qualunque del vostro programma. 


Gli operandi, per una direttiva DATA possono essere: un riferi 
mento irrisolto (unresolved reference), una costante numerica, 
un simbolo definito, una sequenza di costanti numeriche e di 
simboli definiti uniti dal simbolo "più" (+) o dal simbolo 
"meno" (-). Nell'ultimo caso (una sequenza di somme e sottra- 
zioni) non viene considerato il riporto ne segnalato un even- 
tuale overflow. 


Esempi: 
DATA >I234 Inizializza la locazione al valore 
>I234. 
DATA AX Se AX=>3456, inizializza la loca- 
zione a%3456. 
DATA GH Se GH é un riferimento irrisolto e - 


guente, la locazione sarà inizializ- 
zata al valore corrispondente a GH 
quando GH sarà definito. 


DATA 2+5-3 Inizializza la locazione al valore 
4. (E' equivalente a DATA 4). 


La direttiva DATA può ammettere come operandi anche una sequen- 
za di costanti separate da virgole. 

DATA [costante (definita o indefinita), costante,...y;] 
Notate che una costante non definita é accettabile SOLO se é il 
primo operando della lista. 


Le direttive BS3 e DATA hanno funzioni similari. Tuttavia la 
direttiva BSS riserva semplicemente spazio in memoria senza 
inizializzarlo, mentre la direttiva DATA riserva spazio in me- 
moria inizializzandolo ad un valore (o valori) specificato. 
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END : End Program 
Pormato : END 


L'Assembler può essere lasciato in ogni momento scrivendo nel 
campo Opcode la direttiva END. Quando essa viene inserita, 
l'Assembler mostra il numero di riferimenti irrisolti (se ce ne 
sono). Se esistono riferimenti irrisolti, tornate all'Assembler 
e risolveteli prima di lasciare il programma. Se non lo fate, 
nel vostro programma potranno risultare codici operativi non 
validi. La direttiva SYM (descritta più avanti) può aiutarvi 

ad identificare i riferimenti irrisolti prima che terminiate 

di scrivere il vostro prograîma. 


Dopo aver risolto tutti i riferimenti, l'Assembler mostra la 
frase : 

0C00 UNRESOLVED REFERENCES 
A questo punto premendo ENTER uscite dall'Assembler e tornate 
alla lista di selezione della Mini Memory. Premendo un qua- 
lunque tasto meno ENTER, si ottiene che l'Assembler attenda 
una vostra successiva istruzione. 


EQU : Assembly Time Constant Definition 


Pormato : <label> EQU <costante definita> 


La direttiva EQU serve ad assegnare il valore di un simbolo 
definito ad un altro simbolo e per definire il valore di una 
costante simbolica. 


Nota : non é prevista alcuna direttiva per cambiare il valo- 
re di un simbolo dopo averlo definito. 


Esempi : 
CD EQU >A5SSA Assegna a CD il valore >A5SA 
FG EQU I5 Assegna a FG il valore decimale I5 
A EQU FG Pone A uguale a PG 


SYM : Symbol Table Display 
Pormato : SYM 


La direttiva SYM vi permette di rivedere, in qualunque momen- 
to durante la scrittura del vostro programma, i simboli di 
riferimento ed i valori a loro associati (se ce ne sono) che 
avete fino ad allora usato nel programma. 
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La tavola dei Simboli viene stampata in tre categorie : 

RESOLVED REPERENCES (Riferimenti risolti). Ogni label 
o variabile già definita ( a cui 
é già stato assegnato un valore). 

UNRESOLVED REFERENCES (ORD) Ogni label o variabile già 
introdotta in istruzioni di pro- 
gramma che non sono salti ma non 
ancora definita. 

UNRESOLVED REFERENCES (JUMP) Ogni label che é stata intro- 
dotta in istruzioni di salto e non 
ancora definita. 


Se una delle categorie precedenti non ha simboli ad essa asso- 
ciati, non viene stampata. Se un simbolo risulta non risolto 

(é stato introdotto ma non ancora definito) viene stampato 
anche l'indirizzo dell'istruzione in cui compare. Quando la Ta- 
vola dei simboli si riempie, la direttiva SYM viene cancellata 
e l'Assembler attende la vostra successiva istruzione. 


Esempio : 
Locazione Istruzione Commenti 
AORG >7D00 Scelta dell'indirizzo di partenza 
T7TDOO 0000 WS BSS 32 Riserva area di lavoro 
7D20 020I LWPI WS Carica l'area di lavoro 
7D22 7D00 
7D24 020I LI R2,W2 Assegna ad R2 un valore indefinito 
7D26R0000 
7TD28RIOFF JMP 32 Salto ad un indirizzo indefinito 
TD2A XXXX SYM Stampa la tavola dei Simboli 
RESOLVED RE?ERENCES 
WS - 7D00 
UNRESOLVED REPERENCES (WORD) 
W2 - 7D26 
UNRESOLVED REPERENCES (JUMP) 
J2 - 7D28 
T7D2A XXXX (XXXX é il dato esistente in 


memoria). L'Assembler attende 
la vostra istruzione seguente. 


Se un simbolo non definito viene introdotto in più di una istru- 
zione, viene stampato il simbolo e l'indirizzo di ciascuna 
istruzione fino ad un massimo di 32, 
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TEXT : String Constant Initialization 
Formato : [label] TEXT ‘<stringa di caratteri>'* 


La direttiva TEXT vi permette di inserire una stringa di carat- 
teri, di tradurla in codice ASCII e di memorizzarla come parte 
del vostro programma. Ogni carattere stampabile, eccetto l'apo- 
strofo, può essere inserito come parte di una istruzione TEXT, 
ed il codice ASCII che viene memorizzato é esattamente quello 
del carattere che inserite. Notate che i tasti di controllo e 
di funzione speciali (AID, REDO, etc.) generano codici ASCII 
validi (compresi tra>0 e>F) che vengono memorizzati ma non 
stampati sullo schermo. 


La stringa relativa ad una direttiva TEXT può essere lunga a 
piacere, e deve essere preceduta e seguita da un apostrofo. Se 
viene inserito un numero dispari di caratteri ASCII, alla strin- 
ga viene aggiunto un byte nullo (>00) per spostare il contatore 
di locazione al valore pari seguente. 


Esempio : 


TEXT ‘'ABCD* Memorizza i valori> 4142 e>4344 
nelle corrispondenti locazioni 
di memoria. 


Nota : la funzione ERASE non cancella dalla memoria eventuali 
caratteri già scritti. 


LA TAVOLA DEI SIMBOLI 


L'Assembler vi permette di usare sia in istruzioni che in salti 
etichette e variabili non ancora definite o risolte a patto che 
esse vengano definite o risolte più avanti nel corso del pro- 
gramma. L'Assembler prende nota di tutti i simboli definiti o 
introdotti in un programma e memorizza queste informazioni in 
una Tavola Dei Simboli. 


£ 


La Tavola dei Simboli é divisa in tre parti : riferimenti a 
simboli definiti (defined symbol reference), riferimenti ad 
istruzioni non risolte (unresolved word references), riferimen- 
ti a salti non risolti (unresolved jump references). Anche il 
numero di elementi della tavola dei simboli viene memorizzato. 
Siccome ogni riferimento é memorizzato in 4 bytes (i primi due 

si chiamano Label word, gli ultimi due Andress Word), la lunghez- 
za fisica della Tavola é quattro volte il numero dei riferimenti. 


La Tavola dei Simboli comincia alla locazione di memoria>7CD8. 
Siccome ogni elemento della Tavola dei Simboli occupa quattro 

bytes, assicuratevi che l'indirizzo di inizio del vostro pro- 

gramma riservi spazio adeguato al numero di elementi della Ta- 
vola, richiesti dal vostro programma, In caso contrario, quan- 
do il vostro programma sarà eseguito la Tavola dei Simboli po- 
trà sovrapporsi alla parte iniziale del vostro codice oggetto. 
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Riferimenti a Simboli Definiti 


Se in una istruzione compare una label risolta o un altro sim- 
bolo definito, la Label Word memorizzata nella Tavola dei Sim- 
boli é semplicemente il codice ASCII corrispondente al simbolo. 
Se il simbolo é formato da un solo carattere, esso viene memo- 
rizzato aggiungendo il codice ASCII del simbolo uno. Per esempio 
se il simbolo é A, esso sarà memorizzato come >3I4I., La secon- 
da parola (Andress Word) contiene il valore esadecimale corrispon- 
dente alla costante definita oppure la locazione di memoria a 
cui la label si riferisce. Per esempio se la costante AC viene 
definita essere>8375, i valori memorizzati saranno : 

4143 Nome del simbolo definito 

8375 Valore corrispondente 


Riferimenti 23 istruzioni non risolte 


I valori memorizzati nella Tavola dei Simboli per un riferimen- 
to ad una istruzione non risolta sono simili a quanto detto pri- 
ma, solo chelil bit più significativo della Label word viene 
attivato e la Andress Word punta all'ultiua locazione nella 
quale il simbolo non definito é stato usato. Per esempio, se la 
label AC viene usata come riferimento non risolto nella loca- 
zione >7E00, e nessun riferimento successivo a questa label 
esiste nel vostro programma, i valori memorizzati nella Tavola 
dei Simboli sono : 

CI43 Nome del simbolo non definito 

7E00 Indirizzo 


Riferimenti a salti non risolti 


I valori memorizzati per un riferimento ad un salto non risol- 
to sono simili ai precedenti, solo che viene attivato il bit 
più significativo DEL BYTE MENO SIGNIFICATIVO della Label word 
e l'Andress ‘ord punta alla locazione dell'ultima istruzione d 
salto che usa quella label non risolta. Per esempio se nella 
locazione >7D00 esiste un riferimento di salto non risolto al- 
la label AC e non sono stati inseriti altri riferimenti a questa 
label, i valori memorizzati nella Tavola dei Simboli sono : 

41C3 Nome della label non definita 

7DOO Indirizzo 


Il byte meno significativo di una istruzione di salto non ri- 
solta indica la distanza (in numero di parole) dal più recente 
riferimento precedente di salto non risolto alla stessa label. 
Se non ci sono riferimenti precedenti, al byte é assegnato il 
valore -1 (>PP). 
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Numero massimo di Riferimenti non Risolti Stampati 


La prima volta che l'Assembler memorizza un simbolo non risol- 
to nella Tavola dei Simboli, i caratteri che fàrmano il simbo- 
lo sono inseriti nella Tavola seguiti dall'indirizzo nel quale 
il simbolo é stato introdotto. Questo indirizzo é chiamato pun- 


tatore. Il contenuto del puntatore é posto a zero, indicango co- 
sì che quello é il primo riferimento al simbolo non risolto. 


Per esempio consideriamo il programma seguente quando viene 
assemblato : 


7DOO 02E0 LWPI WS 
7D02R0000 
7D04 C820 MOV E WS,E DG 
TD06R7DO2 
7D08R0000 

SYM 


UNRESOLVED REPERENCES (WORD) 
WS-7D06 WS-7D02 DG-7D08 


In questo esempio, il contenuto del primo riferimento a #S 
(alla locazione>7D02) é posto a zero per indicare che quello 

é il primo riferimento a quel simbolo, Il contenuto del seguen- 
te riferimento non risolto a WS (alla locazione>7D06) ha il 
valore di>7D02 (l'indirizzo del precedente riferimento a WS). 


Come risultato di un errore di battuta durante la scrittura di 
un programma, un riferimento non risolto può sembrare avere un 
numero indefinito di puntatori. Il seguente segmento di pro- 
gramma può fare da esempio : 


7D00 W1 EQU>1234 
71D00 020I L1 R1,WS 
7D02R0000 
7004 AORG> 7D00 
7D00 020I L1 RI,WI 
7D0O2 1234 
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Nell'esempio precedente, WS appare nella Tavola dei Simbàli co- 
me un riferimento ad una istruzione non risolta con un puntato- 
re a >7D02,., La seguente direttiva AORG assegna alla locazione 
>TD02 il valore >I234, Di conseguenza ora esiste un numero inde- 
finito di puntatori a #WS poiché l'assembler considera il valore 
>I234 della locazione>7D02 come puntatore ad un riferimento 
precedente e così via. 


Per prevenire, in casi come il precedente, la possibilità di 
stampa di un numero indefinito di riferimenti, la direttiva 
SYM stampa un massimo di 32 riferimenti per ogni simbolo non 
risolto. 


TECNICHE DI CORREZIONE 


Come già detto, l'Assembler conserva i codici sorgente in un 
buffer di nove pagine, per permettervi di rivedere le linee di 
programma già scritte. Quando ragguingete la fine del buffer, 

il titolo del Line - by - Line Assembler appare in basso sullo 
schermo per avvertirvi che il buffer é pieno ed é tornato al 
punto di partenza. Ogni nuovo codice sorgente che scriverete, 

ora cancellerà un codice sorgente precedentemente scritto. 
D'altra parte vi consigliamo a questo punto di rivedere il vostro 
codice sorgente usando i tasti "freccia in su" e "freccia in giù" 
per muovere le linee sullo schermo. 


Se trovate un errore nel vostro codice sorgente prendete nota 
dell'indirizzo della linea contenente l'errore. Quindi usate 
la direttiva AORG per tornare all'indirizzo annotato e riscri- 
vete la linea corretta. 


Potete inoltre correggere errori di battuta mentre state scri- 
vendo una linea premendo ERASE o usando uno dei metodi che de- 
scriveremo adesso, 


Una label, sia nel campo etichetta che in quello operando, può 
esrere corretta semplicemente continuando a scrivere i simboli 
esatti prima di premere la Barra Svaziatrice per uscire dal 
campo. Per esempio, se avete scritto VP al posto di CD come 
label, premete semplicemente CD prima di premere la Barra Spa- 
ziatrice per passare al campo successivo. L'Assembler accetta 
gli ultimi due caratteri inseriti nel campo come label corret- 
ta. Se volete correggere una label di un solo carattere, scri- 
vete I (uno) per undicare il numero di caratteri usati, quindi 
scrivete il carattere alfabetico esatto prima di premere la 
Barra Spaziatrice, 
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Un metodo simile può essere usato per correggere un valore esa- 
decimale scritto nel campo operando. Per esempio se scrivete 
2>I234 al posto di> 2234, semplicemente continuate a scrivere il 
valore corretto. In altre parole quello che dovrete scrivere sa- 
rà >I2342234. L'Assembler consiiera gli ultimi quattro caratte- 
ri come valore esadecimale corretto. La correzione di valori 
decimali é invece spesso molto difficile, poiché l'Assembler 
considera gli ultimi sedici caratteri scritti come valore esat- 
to. Se il vostro numero decimale é più corto di sedici cifre, 
dovrete scrivere tanti zeri quanti ne occorrono per raggiungere 
sedici cifre e poi battere il numero esatto. Risulta chiaro che 
in questi casi é probabilmente meglio cancellare l'ultima linea 
con ERASE e quindi riscriverla correttamente. 


Quello che scrivete nel campo opcode si può correggere solo 
premendo ERASE per cancellare l'intera linea e quindi riscri- 
vendo la linea corretta. 


CONDIZIONI DI ERRORE 


Durante la scrittura di un programma esistono tre condizioni 
che provocano la comparsa di un messaggio di errore sullo scher- 
mo. 


Condizione Messaggio Stampato 
I, Cercate di ridefinire una © ERROR® 
label già definita. 
2, Scrivete un codice operativo ° ERROR® 
o una direttiva inesistente. 
3. Andate oltre lo spazio consen- ©R-ERROR® 


tito con una istruzione di salto. 


Ogni messaggio di errore é accompagnato dall'emissione di un 
suono ed é stampato sulla stessa linea dell'istruzione che ha 
causato l'errore. Premete un tasto qualunque per cancellare ia 
linea. (Il contatore di locazione non sarà modificato). 


Se inserite una istruzione di salto ad una label non definita 

e più avanti vi accorgete che la definizione della label provo- 
ca che la precedente istruzione di salto sia fuori dallo spazio 
consentito, l'indirizzo stampato a sinistra del messaggio 
©R-ERROR® é l'indirizzo della istruzione di salto, Continuate 

a premere ENTER, per vedere gli altri (eventuali) indirizzi di 
istruzioni di salto fuori spazio consentito dello stesso li- 
vello. 
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Se prevedete che una istruzione di salto ad una label non defi- 
nita possa risultare fuori dallo spazio consentito, é una buona 
idea far seguire alla istruzione di salto due istruzioni NOP 
(no-operation), per permettervi di modificare il vostro program- 
ma nel caso ci fosse l'errore. Il seguente segmento di program- 
ma illustra questa procedura. 


TDOO XXXX JNE J2 

TDOORIG6FF 

7DO2 1000 NOP 

7DO04 1000 NOP 

7D06 CO8I MOV RT,R2 

TEIO XXXX J2 EQU $ 

7DOO °R-ERROR® (Premete ENTER per stampare 
altri eventuali indirizzi di 
istruzioni di salto errate; 
quindi premete un tasto qua- 
lunque per uscire dalla con- 
dizione di errore.) 

TEIO XXXX AORG >7D00 

7DOO 1302 JEQ $+6 Notate che la logica di salto 
del vrogramma corretto é op- 
posta all'originale. 

7D02 0460 BCI2 

TDO4 7EIO 
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Eseguite il vostro programma. 


Dopo aver assembiato il programma, il suo nome ed indirizzo di 
partenza devono essere aggiunti alla tavola REP/DEP in modo 
che la MINI MEMORY possa trovare il programma ed eseguirlo. Un 
modo di inserire il nome e l'indirizzo di partenza é usare il 
sottoprogramma LOAD dal TI BASIC. (Consultare il paragrafo 
"Additional TI BASIC Subprograms" del manuale della MINI ME- 
mory). 


Un altro modo é quello di usare le Direttive di Assemblaggio. 
Per prima cosa dovete stabilire se é disponibile lo spazio ne- 
cessario ad aggiungere il nome del vostro programma alla Tavo- 
la REP/DEP. Dopo aver scritto l'ultima linea del vostro pro- 
gramma, usate la direttiva AORG per leggere dalla memoria il 
Primo Indirizzo Libero (FFAM) e l'Ultimo Indirizzo Libero (LPAM) 
del Modulo. Le locazioni che contengono queste due variabili so- 
no>70IC e >70IE rispettivamente. Sottraete il valore conte- 
nuto in>70IC dal valore contenuto in >70IE; se la differenza 

é maggiore di 7 Bytes, avete ancora posto per memorizzare il 
nome del vostro vrogramma. 


Dopo esservi assicurati che é disponibile spazio sufficiente, 
per aggiungere il nome del vostro programma alla REF/DEF Table, 
sottraete 8 dal vecchio LPAM ed inserite (poke) il nuovo valo- 
re di LFAM nella locazione ?70I5 usando la direttiva DATA, In 
questo modo avete riservato lo spazio che vi serve nella tavola 
REP/DEP. 


Il nome del programma può essere lungo da uno a sei caratteri, 
però il nome del programma da inserire nella tavola REP/DEF 
DEVE essere lungo ESATTAYVENTE sei caratteri. Se il nome del 
vostro programma é lungo meno di sei caratteri, dovrete aggiun- 
gere degli spazi yuando lo scrivete nella tavola. 


Usate la direttiva AORG per portarvi sul nuovo punto di inizio 
della Tavola ed inserite il nome del programma attraverso una 
direttiva TEXT. Dopo aver scritto il nome del programma, il 
contatore di indirizzo avanza fino alla seguente parola dispo- 
nibile dove deve essere memorizzata la locazione di partenza 
del programma (due Bytes). Usate una direttiva DATA per inse- 
rire questa ultima informazione. 
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ESEMPIO : Determiniamo lo spazio di memoria rimanente. 


L'esempio seguente presuppone che abbiate appena scritto il 
"Semplice Programma" compreso nel manuale della MINI MEMORY e 


non siate usciti dall'Assembler. 


Lo schermo mostra Voi scrivete 
7TFO4 XXXX AORG>71I0C 
TOIC XXXX 

7TOIC 7F04 DATA>7P04 
TOIE 7FE8 

TOIE 7PEO DATA>T7FEO 
7020 XXXX 

CIEFFE 


Commenti 


> 7P04 rappresenta il cor- 


rente indirizzo del con- 
tatore di locazione e XXXX 
un dato qualunque che 
l'indirizzo contiene. 


XXXX rappresenta l'indi- 
rizzo del vecchio FFAM, 


L'istruzione DATA inse- 
risce il nuovo FFAM che 
é il primo indirizzo li- 
bero immediatamente se- 
guente il programma. 


> 7FE8 rappresenta l'indi- 


rizzo attuale del LFAM, 

Sottraete FFAM da questo 
valore. Se il risultato 

é 7 bytes o più grande, 

avete ancora spazio per 

il nome del programma. 


Sottraete 8 bytes dal 
vecchio LFAM e memorizza- 
te il risultato come nuovo 
LFAM attraverso una diret- 
tiva DATA (>7PPO rappre- 
senta il nuovo LFAM.) 


Il contatore avanza alla 
locazione seguente e 
stampa un qualsiasi dato 
assemblato. 
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ESEMPIO : Inserite il nome del programma e l'indirizzo di 
partenza. 


L'esempio seguente che comincia dove finisce quello precedente, 
vi mostra come inserire il nome e l'indirizzo del programma 
DISP$ (vedi "Semplice Programma” nel manuale della MINI MEMORY) 
alla tavola REP/DEP. 


Lo schermo mostra Voi scrivete Commenti 

7020 XXXX AORG >7F.BO Vi porta sul nuovo punto 
di inizio della Tavola. 

TPRO XXXX XXXX rappresenta un qual- 


siasi dato attualmente me- 
morizzato alla locazione 


>TPEO. 
TFEO 4449 TEXT 'DISP$* Inserisce il nome del pro- 
TFE2 5350 gramma: DISP$. (Notate che 
TPE4 2420 il carattere spazio viene 


aggiunto per arrotondare 

la lunghezza del nome a 6 
caratteri). I caratteri del 
nome, compreso lo spazio, 
vengono memorizzati in 6 
bytes a partire dalla loca- 
zione >7FEO. 


TESO AXXKX Il contatore avanza alla lo- 
cazione successiva, aove 
sarà inserito il punto di 
entrata ael programuia, e 
mostra il valore atiualmente 
contenuto dalla locazione. 


Tr 26 7E20 DATA DS La label DS (uguale a 7520) 
indica il punto di inizio 
del programma. 

Adesso siete pronti per uscire dall'Assembler e far girare il 

vostro programma. 


MEMORIZZATE IL VOSTRO PROGRAMMA SU NASTRO 


Per memorizzare un programma su nastro per prima cosa premete 
QUIT per lasciare l'opzione MINI MENORY, quindi selezionate 
1'EASY BUG ed usate il comando S, Per ottenere i migliori risul- 
tati scrivete l'indirizzo di partenza >7000 e l'indirizzo di 
arrivo>7FFFP per essere sicuri che la Tavola REP/DEF ed i punta- 
tori alla Low Memory siano memorizzati, In caso contrario si 
renderà necessario inserire il nome del vostro programma nella 
Tavola REP/DEP ogni volta che lo caricate. 


Per dettagli addizionali, consultate la sezione "EASY BUG Debug- 
ger" del manuale della MINI MEMORY. 
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let Home Computer users draw axes, plot curves, and even 

draw objects in perspective. The software, consisting of 

plotting routines for che Mini Memory Cartridge, accesses the 

powerful graphics capabilities of the TI-99/4A through TI BASIC. 

The routines supplied in this package require either of the follow- 
ing peripheral configurations: 

Ì. Memory Expansion, cassette recorder, Mini-Memory, and 
assembled (object file) routines available on this issue's 
'‘99"er Magazine-On-Tape."' [See page 69] 

2. Memory Expansion, disk system, Mini-Memory, 
Editor/Assembler, and source files (hand entered from 
listings included with chis article.) 


TE he Assembly Language routines presented in this article will 


Note: The large size of these subroutines, and the fact that 
part of Mini-Memory is required for the Line-by-Line Assembler, 
dictates that the source files be assembled via the Editor/Assembler 
rather than che Line-by-Line Assembler chat comes with the Mini- 
Memory. We are therefore making the object file available on 
cape so that readers without an Editor/Assembler and disk system 
can take advantage of this powerful software—Ed. 


Theory of Operation 

The routines work on 
the basis of a plotter. The 
screen is the plotter's sur- 
face, and the routines con- 
trol an imaginary ‘’pen.’’ 
The pen can be moved with 
or.without drawing a line 
on the screen, and if it tries 
to draw off the screen, it 
will change no data other than che position of the pen. 

The resolution of the screen is 192 pixels (dots) vertically and 
256 horizontally. The routines allow you to clear the screen, scale 
the screen, draw X and Y axes, output text, change the pen's 
position and draw lines. Because the routines take advantage of 
the advanced graphics mode of the TMS9918A Video Display Pro- 
cessor (VDP), compromises had to be made (due to memory re- 
quirements in this mode). 

The VOP takes up 12K bytes of space in VDP RAM to define 
the shape and color of the characters. This leaves very little room 
for BASIC programs. Therefore, a buffer was created in che 
Memory Expansion to keep the character shape table. Because 
this buffer is nor in the VDP RAM, the plot cannot be seen until 
the GRAPH command is issued. Also, once chis command is issued, 
the BASIC program will be destroyed. Therefore, it is advisable 
to save your BASIC programs before running them! 

As a positive side effect, after the plot is put on the screen and 
the user returns to the power-up screen (by pressing the Q key), 
the plot will remain unchanged in the Memory Expansion Buffer. 
The plot will exist as long as the user does not issue the GCLEAR 






| SSR ERRER RE 
tttaanigtattaroAervwTTE EEE 











The graphic capabilities are unique to the Video 
Display Processor (VDP) in the 99/4A. However, if the 
VDP in a 99/4 Is changed from a TMS9918 to a 
TMS9918A (the chip in a 99/4A), these routines are 
also usabile with the 99/4. The TMS9918 and 
TMS9918A are pin compatible and any software 
designed for the 99/4 will run with the new chip in 
place, with no modifications. [This chip swapping 
should only be done by a competent technician—Ed.] 
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command or turn off power to the console or the Memory Ex- 
pansion. Therefore, it is possible to add data to a plot even after 
looking at it several times. 

The line-drawing algorithm is based on Bresenham's algorithm 
described in Principles of Interactive Graphics by William M. 
Newman and Robert F. Sproull (McGraw-Hill Book Company). 
The algorithm was originally designed for control of a digital plot- 


‘ter but is easily adapted to the type of display used on the 99/4A. 


For a complete discussion of this algorithm, refer to pages 25 and 
26 of the book mentioned. 

Wéithin che line-drawing routine of the package, A and DELTAA 
refer to the axis of greatest movement. X and Y keep track of 
the pen's current position and can only be changed by using the 
DRAW and MOVE commands. Bresenham's algorithm covers the 
remainder of the DRAW routine. 


Descriptions of Plotting Routines 

The routines may be used either as program statements or as 
interactive commands (hereafter, the term command will refer 
to the statement as either a program statement or an interactive 
command). 


GCLEAR 

This roytine initializes che 
graphics package. The plotter 
surface is cleared and the pen 
is set for the lower left-most 
pixel. The scale is set such that 
the X axis has a Minimum value 
of zero and the maximum 
value is 255. The Y axis has a 
minimum value of zero and che 
maximum of 191: The lower left hand pixel has the coordinate 
value of (0,0). The TI BASIC syntax is: 

CALL LINK('*GCLEAR"') 
There are no parameters passed with this command. 


SCALE 

The SCALE command lets you set the minimum and maximum 
values of the screen. These values can be real or integer. They 
may be passed as either numeric expressions or as numeric 
variables. The minimum must be less than the maximum, other- 
wise, a *BAD ARGUMENT IN. . . type error will be issued. The 
TI BASIC syniax is: 

CALL LIN:.(‘‘SCALE"',Xmin,Xmax,Ymin,Ymax) 
The variables may not be passed through numeric arrays. The 
routines do not support arrays at this time. The scaling of the 
screen may be changed at any time without affecting the data which 
is already in the screen buffer. When the SCALE command is us- 
ed, che absolute position of the pen on the screen is not changed. 
For example, if the pen were in the lower left hand corner of 
the screen and the scaling were changed, the position of the pen 





would scill be in the lower left-hand corner, no matter what the 
new scaling. 


DRAW 

The DRAW command will move the pen from its current loca- 
tion to another point, specified by the user. Since the routine keeps 
track of the current pen position, all that is necessary is to specify 
the point to which the pen is to DRAW. The DRAW command 
is used as follows: 

CALL LINK(''DRAW''.Xposition, Yposition) 
The restrictions and freedoms of the parameters for this com- 
mand are the same as those for the SCALE command. The X and 
Y positions are the coordinate values of the destination point for 
the pen. If the position specified is off the screen, the pen will 
move off the screen, but will only draw the line to che edge of 
the screen. Although there is no risk of destroying data by draw- 
ing off the screen, there are dangers of numeric overflow. 


MOVE 

This routine performs the same function as the DRAW com- 
mand, except that the pen is ‘‘lifted’’ before being moved and 
therefore draws no line. The pen is put back down after reaching 
its new location. The TI BASIC syntax is: 

CALL LINK(‘'MOVE"',Xposition, Yposition) 
The parameters are the same as the DRAW command. 


XAXIS 

This command draws a horizontal axis specified by a minimum 
and maximum along the X axis. The axis will intersect che Y axis 
at a user specified point. The position of the pen will remain un- 
changed. Use of this command is as follows: 

CALL LINK(''XAXIS"',Xmin,Xmax,Yintercept) 
The parameters may be either numeric expressions or variables. 
Again, array elements are not allowed. 


YAXIS 
This command is the Y axis counterpart to the XAXIS com- 
mand. The TI BASIC syntax is: 


CALL LINK(''YAXIS"',Ymin,Ymax,Xintercept) 


LABEL 

This command allows the user to output text to the screen, 
and is capable of outputting the ASCII characters, including upper 
and lower case. All characters with an ASCII value of less chan 
32 will be made to look like a 32 (space). AII characters with a 
value greater than 127 will be equated to 127. In this case, this 
is also a space. Due to the nature of character definitions, the 
characters will be output to the character blocks, starting at the 
block designated by the current position of the pen. If the string 
is contained in a string variable (arrays are not allowed), the TI 
BASIC syntax is as follows: 

CALL LINK('‘'LABEL'',. variable) 
If che user wishes to output the string directly, the TI BASIC syn- 
tax is: 

CALL LINK(''LABEL"',''string'’) 


GRAPH 

This command is used to bring the plots to the screen. The use 
of GRAPH destroys any BASIC program in memory—so save your 
BASIC program before running it. After the command is invok- 
ed, the plot generated will appear on the screen. You can leave 
this mode by pressing che ‘Q’ key. The power up screen will ap- 
pear. If the machine is not turned off, you may add to your graph 
by returning to TI BASIC and running a new program. The TI 
BASIC syntax is as follows: 

CALL LINK('*GRAPH'') 


This routine requires no parameters. 


Loading the Plotting Routines into Mini-Memory 
Once the routine has been loaded into the Mini-Memory, it is 
not necessary to reload it unless the routine has been destroyed 


for some reason. such as loading some other program into the 
Mini-Memory. Therefore, once it has been loaded, do nor invoke 
the CALL INIT routine! Make sure that no other data is loaded 
into the Mini-Memory or the lower part of the memory in the 
Memory Expansion (HEX 2800 to HEX 3000). If che program 
needs to be loaded into the Mini-Memory, this can be done in one 
of two ways: 


Method 1: 

To assemble and load from the program listings1— 

I. Plug the Editor/Assembler cartridge into the TI-99/4A. 

2. Using che Editor, enter the program segment in Listing 1 

called BITI. Save the text entered on a disk file called 

BITI. 

Create disk file BIT2 using Listing 2 as in step 2. 

Create disk file BIT3 using Listing 3 as in step 2. 

Create disk file BIT4 using Listing 4 as in step 2. 

Create disk file SOURCE using Listing 5 as in step 2. 

Execute the assembler on disk file SOURCE. Direct the 

object code to disk file GRAPHICS. Use Assembler op- 

tion R (plus L and S options, if you have a printer). 

8. Remove the Editor/Assembler cartridge and insert che 
Mini-Memory cartridge. 

9. Put the disk containing the file GRAPHICS into disk 1. 

10. Select the Mini-Memory from the main menu. 

11. Select the RE-INITIALIZE option and chen press 
PROCEED. 

12. Select the LOAD AND RUN option. 

13. Under file name type DSK1.GRAPHICS. 

14. When the routine asks for another file name press 
QUIT. 

The routine is now loaded into the Mini-Memory. 

[For detailed information on the Editor/Assembler, consult che 

TI Editor/Assembler manual—Ed.] 


Method 2: 
To load from the 99"er Magazine-on-Tape cassette, follow the 
instructions below— 


Plug Mini-Memory into the TI-99/4A. 

Select the EASY BUG option from the main menu. 
Press any key. 

Press L when a question mark appears. 

Put the cassette containing the package into the player. 
Follow the instructions on the screen. 

When a question mark reappears press QUIT. 


The routines need the Memory Expansion for a 6K buffer in addi- 


tion to the space in the Mini-Memary. If the Memory Expansion 
is not properly attached a blank screen will appear when the 
GRAPH routine is invoked. 


Example BASIC Programs 

The following example will scale the screen so the Xmin is — |, 
the Xmax is |, the Ymin is - 0.75, and che Ymax is 0.75. The 
axes will cover the length and height of the screen and intersect 
at che center. A box will be drawn around the center and che 
statement ‘This is a test!"' will appear at the bottom of the screen. 


100 REM **PLOTTING TEST ROUTINE 
110 REM 

120 REM 99"°er Mag. 

130 CALL LINK(‘‘GCLEAR"') 

140 A=.7$ 

150 B=1 

160 CALL LINK(‘'SCALE"',- 1,B, — .75,A) 
170 CALL LINK('*XAXIS”',-1,B,0) 

180 CALL LINK(‘*YAXIS"',-.75,A,0) 
190 CALL LINK(‘‘MOVE"',.5,.375) 

200 CALL LINK(‘DRAW"”',.5,— .375) 
210 C=-.$ 

220 CALL LINK(‘*DRAW"',C,- 375) 
230 CALL LINK(‘‘DRAW'’,C,.375) 

240 CALL LINK(‘‘DRAW'',.5,.375) 

250 A$="This is a test!” 

280 CALL LINK(‘‘MOVE”,-1,-.75) 
290 CALL LINK(**LABEL'’,A$) 

300 CALL LINK(‘‘GRAPH"'') 


Nona 


STR N 
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he Assembly Language routines presented in this article will 

I let Home Computer users draw axes, plot curves, and even 
draw objects in perspective. The software, consisting of 
plotting routines for the Mini Memory Cartridge, accesses che 
powerful graphics capabilities of the TI-99/4A through TI BASIC. 
The routines supplied in this package require either of the follow- 




























l TA YAXIS MOV R11,9SAVRI1 
r ral configur î ; 
MERPETIENSEAFONIorone MOV STATUS, ASTASAV 
I. Memory Expansion, cassette recorder, Mini-Memory, and LI RO,MREGS+16 
assembled (object file) routines available on this issue's e ; ni ina 
‘*99"'er Magazine-On-Tape.'' [See page 69] SLA RISI 
2. Memory Expansion, disk system, Mini-Memory, MOV_Ri,sRO 
| BLWP 3AXIS 
Editor/Assembler, and source files (hand entered from LWPI GPLWS 
listings included with this article.) MOV @STASAV, SSTATUS 
u.LEAR MOV STATUS, 2STASAV MOV 2SAVRII,R11 
IIFTTTITITITITITITITITTTT] >000E MOV Ri11,®SAVRII RT 
: > BITI < 8 |SNT EGU >1B00 BLWéP 2CLEAR L. 
8 PART ONE OF PLOTTING ® |STATUS EQU >837C LWPI GPLWS . 
N) ROUTINES 8 |VDPRD EQU >8800 MOV 2SAVRII,RI1 AXIS DATA MREGS,AXISI 
3I3SLIIIIIITZIITTTITITITE | Uppesr EAU >8000 MOV a2STASAV, STATUS |a : 
"3 BY JOE DEVINCENTIS, JR. |UDP‘WA EQU >8C02 RT AXIS1 CLR RO 
. 99'ER VERSION 2.2 VDPWD EQU >8C00 . LI R1,2 | 
xP1 EU 1 | BLWP_2NUMREF | 
TITL "BIT MAP LINE"| xp2 EQU 3 || GRAPH BLWP @VDPSET LI R2,FAC 
LI vPI1 EU 2 BLWP_26RPAHI LI R3) ARE 
DEF DRAW vP2 EQU 4 LWPI GPLWS BL aTRDATA 
DEF GCLEAR s SCANIT BL aSCAN CLR RO 
DEF GRAPH AORG ORIGIN MOVB @èSTATUS,RO LI RI,1 
DEF LABEL DELTAX DATA 0 JNE SCANIT BLWP 2NUMREF 
DEF MOVE DELTAY DATA 0 LI R0,>0020 LWPI GPLWS 
DEF SCALE SAVRI1 DATA O MOVB @èKEYCOD,RO BL 2FCOM 
DEF XAXIS STASAV DATA 0 CI RO,’Q” Dre 
DEF VAXIS VAL255 DATA >4102, >3700, >0000 JNE SCANIT "ui mess 
n DATA >0000” } LI RO,VDPRST Rava STATUS, RO 
REF NUMREF VAL191 DATA >4101, >5B00, >0000 BL @VADR ANDI RO, >4000 
REF STRREF DATA >0000 MOV 32,R11 JET AxCONI 
VDPREG DATA >8002, >BLEO, >8206 |! B srii LI RO.ERRBA 
A EU 5 DATA >83FF, >8403, >8306 || * B 2ERRSYS 
ADR EQU O DATA >8717 * AXCONI MOV 2X,9XSAVE 
ARG EQU >835C x DATA 0 LABEL MOV STATUS, 2STASAV MOV 2Y'aYSAVE 
B EQU 6 x1 DATA 0 MOV RI1,9SAVRI11 LI R2,ARS 
BASE EQU >8343 Y DATA 0 BLWP 2LABELI LI RS/SREGS 
CFI EQU >12B8 vi DATA 0 LWPI GPLWS BL aTRDATA 
CHAR EQU 5 XSAVE DATA 0 MOV 2SAVRI1,RI11 MOV FLAG2,R1 
CHRCNT EQU 8 YSAVE DATA 0 MOV @STASAV, @STATUS SRA Ri,1 
CNT EQU 9 XDOT DATA >4001, >0000, >0000 RT AI RI : 1 
COLOR EQU >1000 DATA >0000 i BLWP_2CONVTR 
COUNT EQU 9 YDOT DATA >4001,>0000, >0000 £ MOV RO FLAG 
DELTAA EQU 7 DATA >0000 ’ MOVE MOV &@STATUS, 2STASAV I ppt 
DELTAB EOU 6 XMAX DATA >4102, }3700, >0000 MOV R11,9SAVRII » ni, 
| DRFLAG EOU 4 DATA >0000 BLWP_9MOVEI LE ARESE 
ERR EQU 10 XMIN DATA >0000,>0000, >0000 | LWPI GPLWS rn DERDATA 
ERRBA EQU >1600 DATA >0000 | FLAG2,R1 
| MOV  2SAVRI1M,RI1 SRA RI1,1 
ERRBS EQU >1700 YMAKX DATA >4101, >5B00, >0000 MOV @STASAV, 2STATUS , 
ERRCOD EQU >68322 DATA >0000 RT Ù AI RI,1 
ERRNO EQU >1400 YMIN DATA >0000, 30000, 30000 |, BLWP_2CONVTR 
ERROR EQU >O00CE DATA >0000 ia MOV RO, 2X1 (FLAI 
ERRSNM EQU >1500 . s @X (FLAG4) 1 
ERRUN EQU >2500 BUFFER BYTE DFF | SCALE MOV @STATUS, 2STASAV MOV RO, @DELTAX 
FAC EQU >834A BSS DFF brc O RA TR MOV _R11,9SAVRI1 CLR RO 
FADD EQU >0D80 EVEN a SCALE © LI _RI,3 
FCOM EQU >ODIA CONREG BSS >20 pres GPLWS È BLWP_2NUMREF 
FDIV  EQU >OFF4 MREGS BSS >20 NOV SSAVRII.Rit LI R1,2 
FLAG2 EQU 8 PREGS BSS >20 MOV 2STASAV aSTATUS MOV FLAG4, FLAG: 
FLAG4 EQU 9 SREGS BSS >20 RT Li JEQ AXCON2 
FMUL EQU >0EB88 s s SRA RI,1 
FSUB  EQU >OD7C » si toi: + AXCON2 BLWP 2CONVTR 
GPLWS EQU >BSEO mov ATUS, @STASAV îov SsAvR NEGB FLAS2 
KEYCOD EQU >8375 MOV R11,9SAVRI1 SALLE MOV vcioilaee Lh. NEB FLAG4 
| MASK EQU 6 BLWP_9DRAWI E RI MOV RO,2Y(FLAS: 
LWPI GPLWéS SP REGRIA MOV RO, 9Y1 (FLAE 
MOV @SAVRI1,RI1 CLI - NOS E 
i CLR @DELTAY (FL/ 
@STASAV, @STATUS CLR__SRO BLWP 2DRANIZ 
BLWP AXIS si si 
LWPI GPLWS uber SAVE, 
MOV 2STASAV, aSTATUS side 
MOV @SAVRI1,RI1 Ai 
RT 








4 > BIT2 < s TAX 
8 PART TWO OF PLOTTING s pos replare 
9 ROUOTINER > c 2DELTAY, ADELTAX 
ISGRESGIEICERITTTICTITETERI J6T DRCONI 
$ 99'ER VERSION 2.2. 1ALMM DI: SRELTA IAA 
: Dicci MOV a@DELTAY, DELTAB 
$LINE 0002 MOV - aut.k 
CLEAR DATA MREGS,CLEARI MOV avY,B 
CLEARI LI RI,MYPGT a: Sala 
LI R2,>1800 preaificntien 
CLCONI CLR_ SRI MOV 2DELTAX, DELTAB 
INCT Ri MOV @DELTAY, DELTAA 
se nù rn dx n on: 
Sala elia CI xP1,256 
CLR dx SETO DRFLAG a 
GR: BY DRCON2 Cax,9xl pa BCON 
di AI i pid ct LBCON1I CI XP1,>8000 
LI R3,XMAX SETO R2 ui 
BL 2TRDATA JMP_DRCON4 n taCoNa 
LIO R2,VALIDI DRCONZ LI R2,1 ù NOV. ev.vri 
LE, - RIN DRCON4 C_av,avi ea YPi,192 
Mi LRIONTA JLT DRCONS E ti 
LI R3,>4001 Lio ne ip BCONS 
pit ilrdorti JMP__DRCONG LBCON3 CI YP1,>@000 
ROV. RS, YBRT DRCONS LI RS,1 so LecNe 
CUR RININ DRCONS MOV DELTAA, COUNT ine 
illa INC COUNT LBCON4 CLR CHRONT 
e MOV DELTAB,RO MOVB BUFFER, CHRONT 
elfi SLA RO,1 SWPB CHRCNT 
CLCON2 CLR @èXDOT (R2) MOV DELTAA,RI NEG vPi 
CLR 2YDOT(R2) S RI,RO Mm Wiisi 
CLARA 2XMIN(R2) MOV ROLERR ui 
CLR 2YMINIR2) a RI.RO tifo 
INCT R2 MOV DELTAB,RI SLA vYP1,5 
DEL RI SLA R1,1 A XP1, YP1 
JNE CLCON2 REDRWI MOV DRFLAS, DRFLAS MOV YPILADR 
sile JNE REDRW2 A CHRONT,YPI 
> vivicilie jr CI  vP1,768 
È pieni JL LBCONS 
CONVTR DATA CONREG, CONVT1 JNP  REDRWI LI R6, 768 
5 REDRW2 MOV A,&Y ù Re vPI 
CONVTI MOV è2(R13),R5 MOV B,aX MOV YP1,CHRCNT 
Se Euiia REDAUS: BONE 20 LBCONS LI R7,BUFFER*1 
JNE OC 1 MOV ERR,ERR SLA ADR.S 
O clic AI ADR, MYPET 
CLR A RI, ERR | LLOOPî CLR CHAR 
JRE IMP INCR MOVB 8R7+, CHAR 
CVCONI LI CHNG MOV DRFLAS,DRFLAG SWPB CHAR 
CI CHAR,S2 
LI JINE REDRW4 
CVCON2 LI R2,FAC A R3,B JHE LBCON6 
LI RS,ARS JMP_ REDRWS CLR CHAR 
BL 2TRDATA REDRW4 A__R2,B JMmP LECOM — 
LI R2,XMIN REDRWS A RO, ERR LBCON6 CI CHAR, 
p RS,R2 INCR MOV DRFLAB,DRFLAB JLE LANE , 
LI RS,FAC JNE REDRW6 LI CHAR,12 
BL_2TRDATA A R2,A LBCON7 AI CHAR,-32 
3 
LWPI GPLWS JMP REDRW7 SLA CHAR, 
BL__@FSUB REDRW6 A R3,A LBCONE AI CUA, CRTR 
LWPI CONREG REDRW7 DEC COUNT LI CONT, 5 
di: "asta PE REDINI 2 SOC ECHAR+,SADRY © 
SL aria Nou. DUI lat sa ADR, MYPST+>1801 
BL 2TRDATA MOV avi,aY SE ADE 
LI R2,XDOT ne A 
ci Reni ha LBCON9 DECT CNT 
i * JNE LLO0OP2 
BL__®TRDATA ERRSYS MOV RO,ERRCOD e Gana 
roi diAraga JNE LLOOPI 
BL LI RI1,>000E LI RO,>NEOO 
La NOV: SRII.Rii MOVB RO, BUFFER 
LWPI B ERROR piezi 
MOV FAC, $R13 î . 
RTWP i ) 
3 GRPAHI DATA MREGS, GRPAH2 MOVEI DATA MREGS,MOVE2 
Li s s 
patetico tia ERPAM2 CLR RO MOVE2 CLR RO 
DRAWS DATA SL 2vanu a, 
ha LI R1,>1800 SLUP semer 
SE PER LI R2,MVPST BLWP_SCONVTR 
LI GRCONI MOVB 8R2+, 2VDPWD MOV RO,Sx 
BLWP DEC RI CLR RO 
BLWP JNE GERCONI Da Ris 
dtd dica BLWP_2NUMREF 
2 3 BLWP_2CONVTR 
pis ho MOV RO, &Y 
CLR LABEL! DATA MREGS,LABEL2 RTWP 
LI 11 A 
reni LABEL2 CLR RO è 
LI RI,1 sun 
LI R2;>FF00 
MOVB R2, @BUFFER 
RO, @DELTAY LI R2.BUFFER 
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8 PART THREE OF PLOTTINS 8 
tI ROUTINES s 
L8CTTLCITILICTTLIECETTEYWE 

8 99°ER VERSION 2.2. 1ALMM 

Li 


SL INE 0002 
Li 
PLOT DATA PREGS,PLOTI 
È 
PLOTI MOV 2X,XP1 
CI xP1,256 
JLT PLCONI 
RTWP 
PLCONI CI XP1,>}8000 
JL  PLCON2 
RTWUP 
PLCON2 MOV av,vPI 
CI  vYP1,192 
JLT PLCONS 
RTWP 
PLCONZ CI YP1,>8000 
JL  PLCON4 
RTWP 
PLCON4 MOV XP1,XP2 
NEG YPI 
AI YP1,191 
MOV YPI,YP2 
SRA YP1,3 
SLA vYP1,5 
SRA XP1,3 
MOV YPI1,ADR 
A XP1, ADR 
SLA ADR,3 
ANDI YP2, >0007 
A YP2, ADR 
AI ADR,MYPGT 
MOVB 8ADR, CHAR 
ANDI XP2, >0007 
MOV ADR,R4 
MOV XP2,RO 
LI = MASK,>8000 
SRC MASK,0 
MOV R4,ADR 
SOC MASK,CHAR 
MOVB CHAR, 8ADR 
RTWP 
. 
LI . 
SCALE! DATA MREGS, SCALE2 
LI 
SCALE2 CLR RS 
CLR R6 
BL 2NUNGET 
LI RS,2 
LI R6,16 
BL 2NUNGET 
CLR RS 
CLR R6 
BL 2NUMSUB 
LI RS,8 
LI R6,16 
BL 2NUMSUB 
CLR RS 
BL SNUMDIV 
LI RS,8 
BL INUMDIV 
RTWP 
. 
NUMDIV MOV RI1,R10 
LI R2,VAL255 
A RS,R2 
LI R3I,FAC A 


BL 2TRDATA 
LI R2,XDOT 
A RS,R2 
LI RS,AR@ 
BL 2TRDATA 
LWPI GPLWS 
BL @FDIV 
LWPI MREGS 
LI R2,FAC 
LI R3,XDOT 
A RS,RI 
BL a2TRDATA 
B sR10 
MOV RI11,R10 
CLR RO 
LI R1,2 
A RS,R1 
LI R2,FAC 
LI RI, XMAX 
A RO, RI 
BLWP_2NUMREF 
BL 2TRDATA 
DEC RI 
LI R2,FAC 
LI RI, XMIN 
A R6, RI 
BLWP_2NUMREF 
BL 2TRDATA 
LI R2,XMAX 
A R6,R2 
LI RI,ARG 
BL 2TRDATA 
LWPI GPLWNS 
BL 2FCOM 
LWPI MREGS 
MOVB STATUS, RO 
ANDI RO, >4000 
JGT SCCONI 
LI RO,ERRBA 
B. 2ERRSYS 
B sRI10 
MOV RI11,R10 
LI R2,XMIN 
A R6,R2 
.LI R3,FAC 
BL aTRDATA 
LI R2,XMAX 
A R6,R2 
LI RS,ARG 
BL 2TRDATA 

. LNPI GPLWS 

- BL 3FSUB 
LWPI MREGS 


TRDATA 


VDPSET 


VDPI1 


VDCONI 


JNE VDCON2 
LI RO, PNT 
@VADW 
RI,3 

RI 

R2, 256 
RI, @VDPWD 
R1, >0100 
R2 
VDCON4 
RI 

JNE  VDCONI 
RTWP 


LI 
CLR 
LI 


AI 
DEC 
JNE 


3 


sRIO 


2R2+, $R3+ 
3R2+, 8R3+ 
2R2+, 8R3+ 
8R2, 8R3 


28338 


ORI 
SWPB 


RO, >4000 


3 


RO, aVDPWA 
SWPB 


3 


RO, aVDPWA 
RT 


DATA MREGS, VDPI 


LI 
LI 


R2, VDPREB 
R1,7 
8R2+,R0 


DEC 
JNE 
LI 
LI 


RI 
VDCONI 
RO, SNT 
R1, >D000 


R1, VDPWD 
LI RO, PCT 
LI R1, COLOR 
R2, >1800 
MOVB R1,@VDPWD 
DEC R2 


22T t) > BIT4 < s 
27 8 PART FOUR OF PLOTTING $ 
y 


/ e ROUTINES s 
èS MITITITIITR III ICI CIO. 
A \ 8 99'ER VERSION 2.2. 1ALMM 
/ \ ri] 

"i $tLINE 0002 

































: 

CHRTBL DATA >0000, >0000, >0000, }0000 blank 
DATA >0010, }1010, Y1010, >0010 
DATA >0028, >2828, }0000, >0000 
DATA >0028, >287C, >287C, >2828 
DATA >0038, >3450, >3814, >5438 
DATA >0060, >6408, >1020, >4COC 
DATA >0020, >5050, }2054, >4834 
DATA >0008, >OBIO, >0000, >0000 
DATA >0008, >1020, 32020, >1008 
DATA >0020, >1008, >0808, >1020 
DATA >0000, >2810, >7C10, >2800 
DATA >0000, >1010, >7C10, >1000 
DATA >0000, >0000, >0030, >1020 
DATA >0000, >0000, >7C00, >0000 
DATA >0000, >0000, >0000, >3030 
DATA >0000, >0408, >1020, >4000 
DATA >0038, >4444, >4444, >4438 
DATA >0010, >3010, >1010, >1038 
DATA >0038, >4404, >OBIO, >207C 
DATA >0038, >4404, >1804, >4438 
DATA >0008, >1828, >487C, >}0808 
DATA >007C, 24078, >0404, >4438 
DATA >0018, >2040, >7844, >4438 
DATA >007C, >0408, >1020, >2020 
DATA >0038, >4444, >3844, >4438 
DATA >0038, >4444, >3C04, >0830 
DATA >0000, >3030, >0030, >3000 
DATA >0000, >3030, }0030, >1020 





+oao AND s- 


-- OONSUA UN ON* 


>0008, >1020, >4020, >1008 
>0000, >007C, >007C, >0000 
>0020, >1008, >0408, >1020 
>0038, >4404, }0810, 30010 
>0038, >445C, >545C, >4038 
>0038, >4444, >7C44, 34444 
>0078, >2424, >3824, >2478 
DATA >0038, >4440, >4040, >4438 
DATA >0078, >2424, >2424, >2478 
DATA >007C, >4040, >7840, >407C 
DATA >007C, >4040, >7840, >4040 
DATA >003C, >4040, >5C44, >4438 
DATA >0044, >4444, >7C44, 34444 
DATA >0038, >1010, >1010, >1038 
DATA >0004, >0404, >0404, >4438 
DATA >0044, >4850, >6050, 34844 
DATA >0040, >4040, >4040, >407C 
DATA >0044, >6C54, >5444, 34444 
DATA >0044, >6464, >544C, >4C44 
x DATA >007C, 34444, 34444, >447C 
W, DATA >0078, >4444, >7840, >4040 
pe DATA >0038, 34444, 34454, 34834 
de DATA >0078, 34444, >7850, >4844 
ia DATA >0038, 34440, >3804, 34438 
° DATA >007C, >1010, >1010, 31010 
DATA >0044, }4444, >4444, 34438 

DATA >0044, >4444, >2628, D1010 

DATA >0044, >4444, >5454, >5428 

DATA >0044, >4428, >1028, >4444 

DATA >0044, >4428, >1010, >1010 

DATA >007C, >0408, >1020, >407C 

DATA >0038, >2020, >2020, >2038 

DATA >0000, >4020, >1008, >0400 

DATA >0038, >0808, >OB08, >0838 DATA >0000, >0024, >2830, >2824 

DATA >0000, >1028, >4400, }0000 DATA 70000, >0040, >4040, >407C 

ina } e la DATA >0000, >0044, >6&C54, 34444 
/ DATA >0000, >0044, >46454, >4C44 

i | DATA >0000, >007C, >4444,>447C 

/ DATA >0000, >0078, >4478, >4040 

/ DATA >0000, >0038, 34454, >4834 

: DATA >0000, >0078, >4478, >4844 
x \ DATA >0000, >003C, >4038, >0478 
& DATA >0000, >007C, 31010, >1010 
tal DATA >0000, >0044, >4444, >4438 

N DATA >0000, >0044, >4428, >2810 


ia de DATA >0000, >0044, >4454, >5428 


DATA >0000, >0044, >2810, })2644 








DATA >0000, >0000, >0000, >7C00 

DATA >0000, >2010, }0800, >0000 

DATA >0000, >0038, >447C, >4444 
| DATA >0000, >0078, >2438, >2478 
DATA >0000, >003C, >4040, >403C 
DATA >0000, >0078, >2424, >2478 
DATA >0000, >007C, >4078, >407C 
DATA >0000, >007C, >4078, >4040 
DATA >0000, >003C, >405C, >4439 
DATA >0000, >0044, >447C, }4444 
DATA >0000, >0038, }1010, >1038 
DATA >0000, >0008, >0808, >4830 


)/MNCIMECC4NIOVOZICKRG-IONMONODOJvI n 








ISO ANCXECCPAINILO0OC0IB-F--» TO +8S0NCA 


+= DATA >0000, >0044, >2810, 1010 
0003332220020 TTT2SE DATA >0000, >007C, >0810, >207C 
. > SOURCE < LI DATA >0018,>2020, >4020, >2018 
. ! LI DATA >0010, >1010, >0010, }1010 
%* PART FIVE OF PLOTTING * DATA >0030, >0808, >0408, >0830 
. ROUTINES s DATA >9000, >2054, }0800, >0000 
30208020233 TTTTTTNESTE DATA >0000, >0000, >0000, >0000 del 
. 


899'ER VEFSION 2.2. 1ALMM 
Li 





COPY “°DSK1.BIT1" 
COPY “DSK1.BIT2* 
COPY “DSK1.BIT3" 
COPY “DSK1.BIT4" 
END 
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By John Clulow 
Technical Editor 


ike many other 99’ers, | was anxious 
| receive the long awaited Editor/ 

Assembler package. When it finally 
arrived, | remember the excitement of 
unwrapping the 470 page manual-and 
the sinking feeling when | read, “This 
manual assumes that you already know 
a programming language, preferably an 
assembly language.” 

My anxiety grew as | thumbed 
through it-there were no pictures, 
cartoons, or fill-in-the-blank examples. 
It did say, “There are many fine books 
available which teach the basics of 
assembly language.” So | called the 
local computer stores. The only books 
they were aware of, however, also 
assumed familiarity with the basics. 

I guess | had some fuzzy ideas about 
assembly language in the back of my 
mind; it was qualitatively different from 
higher level languages, requiring an 
in-depth knowledge of digital elec- 


tronics and a capacity for the most W 
logico-mathematical* 


detailed sort of 
| thought. In short-nothing seemed more 
difficult... 

But my experience thus far seemed 
to confirm my worst fear. Learning 
assembly language presumed a prior 
knowledge of assembly language; it 
was not merely difficult, it was i/mpos- 
sible. After running Tombstone City 
a few times and typing in Pat Swift's 
Life program (in Vol. 1, No. 4), | put 
the Editor/Assembler on a shelf think- 
ing maybe l’d learn about it gradually 
over the next year or two. 

It would still. be there gathering 
dust were it not fpr a back injury that 
kept me flat on the floor, unable to 
do anything except read the manual. 
I was surprised to discover that writing 
an assembly language program is similar 
to, and in some respects simpler than 
writing a program in BASIC. A new 
programming context or conceptual 
model is required. But to get started, | 
found that this picture could be primi- 


LANGUAGE! 


‘1 AGIC CRAYON 


Learning 
Assembly Language 
The Hard Way 





Part 2 of Patricia Swift's article, A Screen Printing Utility, has been 


postponed until next issue because of the CES announcement that the 
Epson MX-80 printer (with dot-addressable graphics installed) would be 
Tl°s new 99/4 matrix printer. Extra article development time is needed 


to ensure screen-dump compatibility with both the MX-100 and Tl‘s 
version of the MX-80. We think you‘ll learn quite a lot from this issues 
substitute article in the interim. 


tive, containing many over-simplifi- 
cations and approximations. 

The picture | developed enabled me 
to successfully formulate and execute 
a simple programming objective. The 
program and associated underlying con- 


di 























N 


ù LE 


cepts are presented here to facilitate the 
learning process for others who, like me, 
find it hard to overcome preconceived 
notions about how difficult assembly 
language is. The program should not be 
taken as a model of exemplary pro- 
gramming technique; at this point my 
conception of ‘good programming” is 
programming that works... period. 
You will undoubtedly be able to find 
ways to improve this one-to make it 
work faster and utilize memory more 
efficiently-and in so doing, further 
develop the concepts presented. 

In assembly language, four video 
display modes are available: Graphics 
(or Pattern) Mode, Text Mode, Bit-Map 
Mode (99/4A only), and Multicolor 
Mode. In Multicolor Mode, the screen is 
divided into a grid of 64 x 48, with each 
box measuring 4 pixels on a side. Each 
box can have a color assigned to it. The 





program allows use of a joystick to 
move a flashing cursor on the screen. 
Whenever the fire button is depressed, 
the cursor leaves a trail of small, colored 
boxes. The following single key com- 
mands are available: 


C — Change Color. Displays a color 
palette and pointer. Move the pointer 
to the desired color with the joystick. 
Press the fire button to make that the 
color of the boxes, or press the C key 
to make it the color of the screen 
background. 


Saves the current 
the screen as “DSK1. 


S- Save Screen. 
contents of 
SCREEN”. 


R — Recall Screen. Loads the contents 
of ‘“DSKI.SCREEN” for subsequent 


modification. 


— Erase Screen. Erases the screen 


contents. 


T- Terminate. Returns to the Master 
Title Screen. 

In order to understand how the pro- 
gram works, it will be helpful to differ- 
entiate two systems. You probably 
know that the Central Processing 
Unit (CPU) in the Home Computer is 
the TMS9900. It has three built-in, 
16-bit “hardware” registers (the Pro- 
gram Counter, Workspace Pointer, and 
Status Register) and makes use of 
sixteen workspace registers located in 
read-write memory. Because these 16- 
bit workspace registers are not located 
on the chip, they are called “software” 
registers. The CPU can directly address 
the read-write memory (RAM) in the 
Memory Expansion Unit and CPU 
scratch pad, as well as ROM in the con- 
sole, Command Modules, and various 
peripherals. However, it cannot directly 
address the 16K of RAM built into the 
console. 

That 16K RAM block is addressed by 
another microprocessor—the TMS9918 

Continued on p. 60 
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THE RIGHT ONES 
FOR TI 


RECORDER 


e Right Sensitivity, 
Polarity ® Tape Counter 
e Attractive 


TOSHIBA $39% 


KT-1500 
COLOR TV 


e Right Resolution 


13” MGA $979% 


CS-1303 

HUGE DISCOUNTS on 
TI, Apple, Atari, IBM, 
Commodore, NEC, more 


MAIL ORDER SYSTEMS 
P.O. Box 1667 
Goleta, CA 93116 


* Prepaid includes shipping and handling. 
C.0.D. costs extra. CA residents add 6% 


Program 
Development 
Software 

for 


TI-99/4A 


DISASSEMBLER 


Generates assembly source code 
from memory object. Includes 
hardcopy memory dump utility. 


$95.00 


SPRITE EDITOR $29.00 


MUSIC EDITOR $29.00 


DISK SORT $55.00 
(with up to 10 keys—very fast) 


To order or to receive free catalogue, 
write to 


NAVARONE INDUSTRIES 
1250 Oak Mead Pkwy 
Suite 732 
Sunnyvale, CA 94086 
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Crayon ... from p. 57 


VDP RAM MEMORY 
—Editor/Assembler— 


Address of 
First Byte 
Decimal Hex 


Length 
of Block, 
Bytes 


Contents 


Screen Image Table 
Sprite Attribute List 
Color Table 

Sprite Descriptor Table 


Sprite Motion Table 

Pattern Descriptor Table 
and Peripheral Access Blocks 

More Peripheral Access Blocks 
and Buffers 

Reserved for Diskette Device 
Service Routines 

Last Address 


Total 16384 Bytes 


(or 9918A if you have a 99/4A). This 
Video Display Processor (VDP) has 
eight 8-bit hardware registers and four 
8-bit software registers. The software 
registers are located in read-write 
memory locations which can also be 
addressed by the CPU. The fact that 
these four bytes can be addressed by 
both the CPU and VDP makes it pos- 
sible for the CPU and VDP systems 
to transfer data back and forth. The 
CPU addresses of the registers— > 8800, 
> 8802, > 8C00, > 8C02-—are assigned 
respectively to the symbols VDPRD 
(VDP Read Data), VDPSTA (VDP 
Status), VDPWD (VDP Write Data), and 
VDPWA (VDP Write Address). 

We don’t have to be concerned with 
the details of moving data to and from 
VDP RAM and to VDP registers, how- 
ever, thanks to some of the built-in 
programs called “utilities.’ The five 
utilities of use are identified by the 
symbols VSBW, VMBW, VSBR, VMBR, 
and VWTR. The respective functions 
of these programs are VDP RAM: Single 
Byte Write, Multiple Byte Write, Single 
Byte Read, Multiple Byte Read, and 
Write to Register. User workspace 
registers are used to pass parameters— 
e.g., the number of bytes to read or 
write—to the utility. 

The standard utilization of VDP 
RAM in the Editor/Assembler is shown 
on Table 1. The blocks involved in the 
multicolor mode are the Screen Image 
and Pattern Descriptor Tables. Before 
entering multicolor mode, the Screen 
Image Table is initialized. The 768 
bytes of the table are divided into six 
128-byte sets. Each set is further 
subdivided into four 32-byte groups. 
To initialize the table, the numbers 
0-31 are written in order into each of 
the four 32 byte groups in the first 
set: 0, 1, 2,...31 four times. Then the 
numbers 32-61 are written four times 
into the next 128-byte set. This process 
is continued until the numbers 160-191 
are written four times in the sixth 128- 





byte set. In my program, | didn't want 
this process to be visible on the screen, 
so | first put the display in Text Mode 
and made the foreground and back- 
ground colors gray. 

Once the Screen Image Table is 
initialized, color boxes are placed on the 
screen by means ot the Pattern Descrip- 
tor Table. Each 4 x 4 pixel box on the 
screen corresponds to half a byte in the 
Pattern Descriptor Table. To place a 
colored box on the screen, the appro- 
priate color code is written in the nybble 
(4 bits) in the Pattern Descriptor Table 
which corresponds to the desired screen 
position. 

The first eight bytes of the Pattern 
Descriptor Table correspond to boxes 
in a column beginning in the upper 
left corner of the screen. The first 
four bits in byte #1 contain the color of 
the box in the extreme upper left corner 
and the last four bits the color of the 
box immediately to the right of the 
first box. Byte #2 contains the colors 
of the two boxes immediately under the 
first two, and so on for the first eight 
bytes. 

The ninth byte in the table contains 
the colors for the pair of boxes in a new 
column beginning again at the top of 
the screen. Subsequent bytes follow this 
pattern corresponding to 32 columns of 
box pairs with eight pairs in each 
column. This group of 256 bytes thus 
takes care of the top sixth of the screen. 

The 257th byte corresponds to the 
beginning of a new column of box pairs 
starting again on the left side of the 
screen. The six 256-byte groups thus 
correspond to the 3,072 possible boxes 
in multicolor mode. [Since the color of 
each box is indicated in a name table in 
memory, and the names are mapped 
onto the screen according to their posi- 
tion in the table, this multicolor mode 
is a true memory-mapped configuration. 
It does, however, trade off lower res- 
olution for color memory-mapping 
capability, but the high-resolution sprites 


Software Systems 
Engineers 


Put your engineering degree to work at 
Texas Instruments in Lubbock, Texas. 


We have career opportunities for Software 
Systems Engineers to develop software for 
TI home computer products. Positions 
require BSEE or degree in Computer 
Science, at least 3 months’ experience on 
mini/microcomputers and a good working 
knowledge of Assembly language. Under- 
standing of compilers, operating systems 
and interpreters a plus. 


At Texas Instruments, you'll receive a 
wide range of benefits, including profit 
sharing, stock option, vacation, insurance, 
paid retirement and more. 


Apply today. Send your resume to: Johnny 
Acker, Systems Software Manager/P.0. 
Box 10508, M.S. 5890/Lubbock, TX 79408. 


TEXAS INSTRUMENTS 


INCORPORATED 


An equal opportunity employer M/F 





are still available. For an explanation 
of sprites and an introduction to the 
high-resolution bit-map mode, see 3-D 
Animation With the TMS9918A Video 
Chip in this issue—Ed.] 

In the program, a double-size sprite 
provides a reference point for deter- 
mining where boxes will appear. The 
dot row and dot column of the sprite 
can be determined at any time by 
referring to the Sprite Attribute List in 
VDP RAM. Then, since boxes are sup- 
posed to appear in the center of the 
sprite, the screen location can be cal- 
culated by adding 8 to the dot row 
and dot column, which represent the 


sprite’s upper left corner. But in order 
to find the corresponding location in 
the Pattern Descriptor Table, a few 
more calculations must be performed. 

If we let R and C be the dot row 
and dot column desired for the box 
location, the number of complete 
256-byte groups above that location 
is the integer quotient of R/32. Multi- 
plying that number by 256 thus gives 
the first component of the offset in 
the Pattern Descriptor Table. 

Similarly, the integer quotient of C/8 
gives the number of complete 8-byte 
columns to the left of the location. So 
that number is multiplied by 8 and 


added to the offset. Dividing the re- 
mainder of R/32 by 4 gives the number 
of bytes above the location in the 
8-byte column the location is in. Adding 
that to the offset gives the offset for the 
byte in the Pattern Descriptor Table. 

But we still have to know if the de- 
sired location is the most or least 
significant nybble of the byte, and to 
determine that we can divide the 
remainder of C/8 by 4. If the integer 
quotient is 0, it's the left nybble; if 1, 
it's the right nybble. The appropriate 
color code then need only be placed in 
the correct nybble (leaving the other 
one unchanged) and the box appears 
just where it should. 

Let's consider an example: Suppose 
the upper left corner of the sprite were 
at dot row 83 and dot column 147. The 
center of the sprite would then be at 
91 and 155. The number of complete 
groups (32 columns with 8 bytes in 
each) above that location is 2-i.e., 
INT(91/32). So the initial component 
of the offset is 2 * 256 or 512 bytes. 
The number of 8-byte columns to the 
left of the location is INT(155/8) or 
19. That makes the offset 531. Above 
the location, in its 8-byte column, there 
are 6 bytes—i.e., INT((remainder 91/ 
32)/4)-giving an offset of 537. The 
remainder of 155/8 is 3, and INT(3/4) 
is 0, so the nybble of interest is the 
most significant (left) one of the 538th 
byte of the Pattern Descriptor Table. 

Now let’s take a brief look at the 
source listing. The first section consists 
of a number of assembler directives. 
The DEF directive makes the symbol 
MARKER available to other programs, 
and the REF directives make several 
utilities available for use in MARKER. 
Then there are a variety of other assem- 
bler directives. The simplest type is 
EQUate which assigns a constant to a 
symbol at assembly time. USRWS, for 
instance, will be assigned the value of 
>20BA(8378), and that value replaces 
the symbol wherever it appears in an 
operand; the label may subsequently be 
substituted for the number. 

The mnemonic BSS stands for Block 
Starting with Symbol and this directive 
causes the assembler to advance its 
location counter without writing any- 
thing into the object program. It leaves 
an empty area (of the number of bytes 
specified in the operand) which can 
then be used as a storage space for data 
later on. The label is set equal to the 
memory location of the first byte in the 
block at the time the object program is 
loaded. (Since this program is relocat- 
able, the place where the loader pro- 
gram decides to start loading it may 
change depending on what other pro- 
grams have already been loaded.) 

The DATA, BYTE, and TEXT 
directives are similar to BSS except that 
the contents of the buffer are explicitly 


Continued on p. 83 
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in a DATA statement. INTERNAL {090 REM ROOM FOR 60 BOWLERS NAMES, AVERAGES, HANDICAPS 
format saves the data in the same way 


that the computer stores the infor- 100 DIMENSION B_NAME(60),B_AVG(60),B_HANDI(60) 


mation internally. Numbers require 8 |995 REM OPEN THE FILE FOR OUTPUT 


characters (bytes). Strings (i.e., names) | 1000 OPEN #1:“CS1”,OUTPUT,INTERNAL,SEQUENTIAL,FIXED 192 
require 1 byte (for the length) plus the | 1010 X=1 


data itself. | usually save my data in | 1020 FOR I=1 TO 60 


INTERNAL format so that | know the | 1025 REM SEE IF RECORD IS FULL 
length needed for numbers no matter | 1030 IF X=3 THEN 1100 


how big or small they are. 1040 X=X+1 
i 1050 REM ADD TO RECORD- BUT DON'T WRITE IT OUT 
The BASICs of Record Keeping 1060 PRINT #1:B_NAME(I):B_AVG(1)B_HANDI[(1); 


Let's write a part of a program that | 1070 GOTO 1120 


will save each bowler's name, his pin |1090 REM ADD TO RECORD AND WRITE IT OUT! 


average and his handicap. Pretend that | 1100 PRINT #1:B_NAME(I);B_AVG(I);B_HANDI(I) 
we have 60 bowlers in our league. If we | 1110 X=1 


restrict each bowler®s name to a max- | 1120 NEXT I 


imum of 47 characters, we will need a _ | 1130 CLOSE #1 Figure 1 
total of 64 bytes per bowler (47 bytes 

+ 1= 48 for the name + 8 for the aver- REM OPEN THE FILE FOR INPUT 

age + 8 for the handicap = 64). We can OPEN #1:“CS1”,INPUT,INTERNAL,SEQUENTIAL,FIXED 192 
therefore fit the data for 3 bowlers into Mesi 

one 192 byte record. (see figure 1) If FOR I=1 TO 60 

you have filled up a record by the time REM SEE IF RECORD IS FULL 

the program hits the CLOSE statement, IF X=3 THEN 300 

TI BASIC will fill the record with X=X+1 

blanks and write it out. You do not REM READ RECORD—- BUT DON'T READ TAPE 

have to worry about writing out a last INPUT #1:B_NAME(I);B_AVG(1);B_HANDI(I); 

record that is partially full. Just remem- GOTO 320 

ment. To read the data file into your INPUT #1:B_NAME(I);B_AVG(I);B_HANDI(I) 

program, you need code that almost xX=1 


duplicates the write code. (see figure 2) NEXT I 
Continued on p. 84 


CLOSE #1 Figure 2 





rayon... ff 3 
Cc v : Fon p 61 , MAGIC CRAYON E SET FOREGROUND AND BACKGROUND TO GRAY 
defined in the operand field. The label | 99°er Version 1.6.1 AL ti 
. . ni LI RO, >O1FO PLACE IN TEXT MODE 
is assigned the address of the first byte x DEF MARKER BLWP_9VWTR WRITE TO VDP RI 
. . . I RO, SOrEr SET FORE AND BACKGROUND TO GRAY 
at the time the object program isloaded. e VEN OR, gr Nen” Bue Sv WRITE TO VDP R7 
H : 
AII of these buffer areas are contiguous. : DEFINITION OF LABELS % INITIALIZE SCREEN IMAGE TABLE FOR MULTICOLOR MODE 
For example, look at the instructions | *_eew PSs : i inna VERA ERRE AA 
immediately after the label MARKER. PALET BSS LIO Rie IIS ea LOOTRÌ 
The pattern codes for two double-size ROW R3,4 INITIALIZE REPETITIONG COUNTER 
. COL R4,>20 INITIALIZE VALUE COUNTE! 
sprites, the cursor and arrow, are loaded | Eursor 36040, 32010, 30804, 30000 R2,RS START REPETITION 
n a A DI RS, 8RO: STORE VALUE IN ARRAY SCREEN 
into the Sprite Descriptor Table in IIVILCIALETIUOIA RS, 30100 CHANGE TO NEXT VALUE 
VDP RAM. Since the pattern data for 3S000 pae PERA ORD Mie UOLNTE DARAI PUR NERE VALLE 
ARROW is contiguous with that of >0000, 30000 RS DEC REPETITION COUNTER 
CURSOR in both CPU and VDP RAM 0000 R2,>2000 NEXT STARTING VALUE 
, Ù ATTRIB >5878, >800F, >D000 RI DEC GROUP COUNTER 
all 64 bytes can be loaded in one shot. ARRATT >6578, >8401 Sore DEMO Ge MEIER 
You should have little trouble | PPATA ’ piece CERI. SDPEESS GF DATA (BUFFER 
figu ring out the rest of the program by ZERO 160057 ” RO Sonne" INIVILIIIE "900 SOREEN IMAGE 
reading the comments provided and 3 INITIALIZE COLOR PALETTE SCREEN 
referring to the manual. But don't * 

e LI RO, >100 INITIALIZE WORD COUNTER 
stop after you understand how it works LI RI,PALET INITIALIZE POINTER FOR 
—try to make some changes. To start danavzaRIe STORE. GRAY. COLOR: DERE 
with, try changing the shape and colors o eee ono 
of the sprite cursor, the arrangement of INITIALIZE: COLOR: VALUE 

INITIALIZE COLOR COUNTER 
the color palette on the screen, etc. ; INITIALIZE COLUMN COUNTER 
MOVB @GRAY, $R1+ TORE Y BYTE 
Then try to make the program more MOVB SGRAY7 SRI + STORE ANDTHER GRAY BYTE 
efficient in speed and utilization of io ai PROMO REN PNTE ci ruce 
RO, $8R1 STORE A COLOR BYTE 
memory. v RS A DEC COLOR BYTE COUNTER 
. LOOP, STORE ANOTHER COLOR BYTE 
sii Be prepared to run into problems; 2-2 PAPA STORE ANOTHER, COLO 
it's through encountering and solving R4 DEC COLUMN COUNTER 
) . LOOPS DO SECOND COLUMN 
them that you’ll learn most rapidly. Ro SHIFT TO LEAST SIG BYTE 
. è. RO,>ii ADD 1 FOR NEXT COLOR NUMBER 
When | decided to stop reading and JOYSTY EGU RO SHIFT BACK TO MOST SIG BYTE 
start trying to write a program, | had | Serite EQu Lbor4 DO NEXT. THO COLUMNS. 
ici î p STATUS EQU si 
visions of seeing a curl of white smoke | STATus EGU SET BE (COUNTER. FOR 


rise from the computer’ cooling vents, 
but that didn’t happen to me, and 


LI 
® DEFINE SPRITE PATTERNS FOR CHRS 128 AND 132 


P 3 MARKER LWPI USRME LOAD WORKSPACE POINTER / START 
probably won't happen to you either. VDP ADDRESS CH 128 SPRITE DESCRIPTOR TABLE 
So don't be afraid to experiment. dA RVVER TO PENE (2 PATERNO P 
i MP SVI LOAD DATA TO VDR RAM Continued on p. 85 
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77 


78 


79 
80 


si 


83 


84 


86 
87 
88 


Dynamic 


DATA LO, 10,4,96,LI,10,5, 
136,L0,9,4,96,LI,9,5,136 
DATA L0,5,6,96,CT,5,7,139, 
L0,6,6,96,L1,6,7,136,L0,7, 
5,96,L1,7,6,136, 
L0,8,5,96,11,8,6,136 

DATA RÒ,5,8,97,R0,6,8,97, 
RI,6,7,137,R0,7,8,97,R1,7, 
7,137,R0,8,9,97, 
RI,8,8,137,R0,9,10,97 
DATA RI,9,9,137,R0,10,10, 
97,R1,10,9,137,R0, 11,11, 
97,RI,11,10,137, 

RO, 12,11,97, RI,12,10,137 
DATA RO,13,11,97,RI,13,10, 
137,R0, 14,12,97,R1,14,11, 
137,R0,15,12,97, 
RI,15,11,137,L0,16,12,97 
DATA LI,16,11,137,L0,17, 
13,97,L1,17,12,137,L0,18, 
13,97,B,18, 12,137, 

B, 19,12,99,BI,19,11,139 
DATA BI,19,10,140, 

BO, 19,9, 100 

DATA BOTTOM, 20,5,96,B,20, 
6,99,B,19,7,139,B,19,8,99, 
B, 19,4,100,B,19,5,140, 
B,19,2,96,B,19,3,99 

DATA B IN, 18,7,139, 

B OUT, 18,8,136 

REM ----CROSS---- 

DATA TOP,2,7,152,L RADIAL, 
2,6,153,R RADIAL,2,8,153, 
T RADIAL,1,7,154,B RADIAL, 
3,7,154,B RAD,4,7,154 

REM ----ORNAMENTS---- 
DATA OUTSIDE BELL,7,9,104, 
PLUM, 20, 2,107, PLUM, 14,4, 
112, DIAMOND, 13,9, 113, 
BELL,16,10,115 

DATA PLUM,13,4,112, 

PLUM, 12,9, 128, 

DIAMOND, 14,4, 129, 

BELL, 17,3, 131 

REM SCREEN LOCATION LOOP 
HOWMANY=B65 

RESTORE 66 

FOR CHARACTER=1 TO HOWMANY 
READ IDENTIFICATION$,ROW, 
COLUMN, CHARACTERNUMBER 
CALL HCHAR (ROW, COLUMN, 
CHARACTERNUMBER) 

NEXT CHARACTER 

CALL KEY(0,K,S) 

IF S=0 THEN 91 

END 


Listing 2 


1 REM 
2 REM 
3 REM 
4 REM 
5 REM 
6 REM 
7 REM 


25 
26 


27 
28 


29 
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bo0eeeoo0000084 

* BAR-TOPPER £* 
CLELIEITEIEEEZE 

BY FRED ELLIS 

99’ ER VERSION 1.6.1 
ABOUT 5392 BYTES 
PRESS ANY KEY TO 
STOP DISPLAY. * 


VERTICALMAX=200 
SCALE=VERTICALMAX/20 


CALL CLEAR 
LABEL$="ENTER HORSEPOWER" 
ROW=12 

COLUMN=15 

GOSUB 9i 

LABEL$="0 TO 209" 
ROW=13 

COLUMN=19 

GOSUB 91 

INPUT " “i: 
HORSEPOWER 

CALL SCREEN(8) 

CALL COLOR(9,13,8) 

CALL COLOR(10,2,5) 

REM DEFINE CHARACTERS 
REM FORMAT: 
IDENTIFICATION$, 
CHARACTERNUMBER, 
HEXADECIMAL$... 

REM ---GRID--- 

DATA GRID LINE,91, 
00000000000000FF, 
VERTICAL AXIS, 92, 
0101010101010101, 

TIC MARK,93, 
010101010101017F 

REM --DEFINE BAR TOPS-- 
DATA BOTTOM ROW OF PIXELS 
ON, 96, 00000000000000FF, 
SECOND ROW ON,97, 
000000000000FFFF, 

THIRD ROW ON 

DATA 98, 0000000000FFFFFF, 
FOURTH, 99, 
00000000FFFFFFFF, FIFTH, 
100, 000000FFFFFFFFFF, 
SIXTH, 101, 
0000FFFFFFFFFFFF 

DATA SEVENTH, 102, 
OOFFFFFFFFFFFFFF, 
EIGHTH, 103, 
FFFFFFFFFFFFFFFF 

REM ---BASELINE--- 
DATA BASE, 104, 
FF0000FF000000FF 

REM DEFINE LOOP 
RESTORE 26 

FOR CODE=91 TO 104 
READ IDENTIFICATION$, 
CHARACTERNUMBER, HEX$ 
IF_CHARACTERNUMBER>CODE 
THEN 39 

GOTO 40 
CODE=CHARACTERNUMBER 
CALL CHAR(CODE,HEX%) 


Listing 3 
1 REM 


REM * 


NEXT CODE 
REM START SCREEN DISPLAY 
REM ---GRAPH GRID--- 
CALL HCHAR(22,13,104,18) 
FOR ROW=21 TO 1 STEP -1 
CALL HCHAR (ROW, 14,91,17) 
NEXT ROW 

LABEL $="HORSEPOWER" 

ROW=9 

COLUMN=1 

GOSUB 9i 

CALL VCHAR(1,13,92,21) 
FOR ROW=21 TO 1 STEP -5 
ROWNUMBER=200- (10% (ROW-1) ) 
LABEL $=STR$ (ROWNUMBER) 
COLUMN=10 

GOSUB 9i 

CALL HCHAR (ROW, 13,93) 
NEXT ROW 

REM CALCULATE BAR HEIGHT 
BARHEIGHT=HORSEPOWER/SCALE 
Y=INT (BARHEIGHT) 
REMAINDER=BARHE ISHT-INT 
(BARHEIGHT) 

CALL VCHAR(22-Y,16,103,Y) 
CALL VCHAR(22-Y,17,103,Y) 
CALL VCHAR(22-Y,18,103,Y) 
REM SELECT BAR TOP 
TOPPATTERN=INT 
((REMAINDER88) +. 5) 

ON TOPPATTERN+1 GOTO 70, 
72,74,76,78,80,82,84,86 
CALL HCHAR(21-Y,16,96,3) 
soro 88 F 

CALL HCHAR(21-Y,16,97,3) 
Goro 88 

CALL HCHAR(21-Y,16,98,3) 
soro 88 

CALL HCHAR(21-Y,16,99,3) 
soTo 88 

CALL HCHAR(21-Y,16,100,3) 
GoTO 88 

CALL HCHAR(21-Y,16,101,3) 
Goto 88 - 
CALL HCHAR(21-Y,16,102,3) 
goto 88 
CALL HCHAR(21-Y,16,103,3) 
soTo 88 

CALL HCHAR(21-Y,16,103,3) 
CALL HCHAR(20-Y,16,96,3) 
CALL KEY(0,K,S) 

IF S=0 THEN 88 

END 

FOR POSITION=1 TO 
LEN(LABEL$) 
LETTER$=SEG$ (LABEL $, 
POSITION, 1) 

CODE=ASC (LETTER$) 

CALL HCHAR (ROW, 
COLUMN-1+POSITION, CODE) 
NEXT POSITION 

RETURN 


UELEIEITEEZAE 
AUTO-TOP * 
TITTELEEZIRA 

BY FRED ELLIS 

99”ER VERSION 1.6.1 
ABOUT 5288 BYTES 
PRESS ANY KEY TO STOP 
DISPLAY. 


VERTICALMAX=200 
SCALE=VERTICALMAX/20 


26 


27 


28 
29 
30 


si 
32 
33 


CALL CLEAR 

LABEL $="ENTER HORSEPOWER" 
ROW=12 

COLUMN=15 

GOSUB 78 

LABEL$="O0 TO 209" 
ROW=13 

COLUMN=19 

GOSUB 78 

INPUT " “i 
HORSEPOWER 

CALL SCREEN(8) 

CALL COLOR(9, 13,8) 

CALL COLOR(10,2,5) 

REM DEFINE CHARACTERS 
REM FORMAT: 
IDENTIFICATION$, 
CHARACTERNUMBER, 
PATTERN$... 

DATA GRID LINE,91, 
00000000000000FF, 
VERTICAL AXIS,92, 
0101010101010101, 

TIC MARK,93, 
010101010101017F 

DATA BAR, 96, 
FFFFFFFFFFFFFFFF, 
BASELINE, 104, 

FF0000FF 000000FF 

DATA RESERVED FOR 

TITLE BOX 

DATA RESERVED FOR LABELS 
DATA RESERVED FOR LEGEND 
DATA RESERVER FOR 
ADDITIONAL CHARACTERS 
REM DEFINE-LOOP 

RESTORE 25 

FOR CODE=91 TO 104 

READ IDENTIFICATION$, 
CHARACTERNUMBER, PATTERN$ 
IF _CHARACTERNUMBER>CODE 
THEN 37 

GoTO 38 
CODE=CHARACTERNUMBER 
CALL CHAR(CODE, PATTERN$) 
NEXT CODE 

REM START SCREEN DISPLAY 
REM ---GRAPH GRID--- 
CALL HCHAR(22,13,104,18) 
FOR ROW=21 TO 1 STEP -1 
CALL HCHAR(ROW,14,91,17) 
NEXT ROW 

LABEL $=" HORSEPOWER" 
ROW=9 

COLUMN=1 








67 


gi 


82 
83 


GOSUB 78 
CALL VCHAR(1,13,92,21) 
FOR ROW=21 TO 1 STEP -5 
ROWNUNBER=200- (10% (ROW-1)) 
LABEL $=STR$ (ROWNUMBER) 
COLUMN=10 

GOSUB 78 

CALL HCHAR (ROW, 13,93) 
NEXT ROW 

REM CALCULATE BAR HEIGHT 
BARHEIGHT=HORSEPOWER/SCALE 
Y=INT (BARHEIGHT) 
REMAINDER=BARHEIGHT-INT 
(BARHEIGHT) 

CALL VCHAR(22-Y,16,96,Y) 
CALL VCHAR(22-Y,17,96,Y) 
CALL VCHAR(22-Y,18,96,Y) 
REM SELECT BAR TOP 
TOPPATTERN=1+INT 
((REMAINDER88) +.5) 
MASTER$="00000000000000 
FFFFFFFFFFFFFFFFFF" 
STARTPOSITION=2% 
TOPPATTERN-1 
TOPPATTERN$=SEG$ (MASTER$, 
STARTPOSITION, 16) 

CALL CHAR(97, TOPPATTERN$) 
CALL HCHAR(21-Y,16,97,3) 
IF TOPPATTERN< >9 THEN 75 
CALL CHAR(98, 
"00000000000000FF") 

CALL HCHAR(20-Y,16,98,3) 
CALL KEY(0,K,S) 

IF S=0 THEN 75 

END 

FOR POSITION=1 TO 
LEN(LABEL$) 

LETTER$=SEG$ 

(LABEL$, POSITION, 1) 
CODE=ASC (LETTER$) 

CALL HCHAR (ROW, 
COLUMN-1+POSITION, CODE) 
NEXT POSITION 


""°TI99UG.it 


Listing 4 


1 REM 
2 REM 
3 REM 
4 REM 
5 REM 
6 REM 
7 REM 


TLTEITITTERIZA 

%* THREE-BARS * 
UTTEIETETIRTEINE 

BY FRED ELLIS 

99’ER VERSION 1.6.1 
ABOUT 5160 BYTES 
PRESS ANY KEY TD STOP 
DISPLAY. 


8 VERTICALMAX=200 
9 SCALE=VERTICALMAX/20 


22 


23 


OPTION BASE 1 
DIM Y(3) 

Y(1)=133 

Y{2)=159 

Y{3)=99.9 

CALL SCREEN(8) 

CALL COLOR(9,5,8) 

CALL COLOR(10,3,8) 

CALL COLOR(11,16,8) 
CALL COLOR(12,2,5) 

REM DEFINE CHARACTERS 
REM FORMAT: 
IDENTIFICATION$, 
CHARACTERNUMBER, 
PATTERN$... 

DATA GRID LINE,91, 
00000000000000FF, 
VERTICAL AXIS,92, 
0101010101010101, 

TIC MARK ,93, 
010101010101017F, 
BAR1,96 

DATA FFFFFFFFFFFFFFFF, 
BAR2, 104, 
FFFFFFFFFFFFFFFF, 

BAR3, 112, 
FFFFFFFFFFFFFFFF, 
BASELINE, 120, 
FF0000FF000000FF 

DATA RESERVED FOR 

TITLE BOX 

DATA RESERVED FOR LABELS 
DATA RESERVED FOR LEGEND 
DATA RESERVER FOR 
ADDITIONAL CHARACTERS 
REM DEFINE-LOOP 

RESTORE 22 

FOR CODE=91 TO 120 

READ IDENTIFICATION$, 
CHARACTERNUMBER, PATTERN$ 
IF CHARACTERNUMBER>CODE 
THEN 34 

GOTO 35 
CODE=CHARACTERNUMBER 
CALL CHAR (CODE, PATTERN$) 
NEXT CODE 

REM START SCREEN DISPLAY 
CALL CLEAR 

PRINT TAB(13);Y(1); 
TAB(18);Y(2);Y(3) 


40 REM -——GRAPH GRID--- 


CALL HCHAR(22,13,120,18) 
FOR ROW=21 TO 1 STEP -1 
CALL HCHAR(ROW,14,91,17) 
NEXT ROW 

LABEL $="HORSEPOWER" 

ROW=9 

COLUMN=1 

GOSUB 78 

CALL VCHAR(1,13,92,21) 
FOR ROW=21 TO 1 STEP -5 
ROWNUMBER=200- (10% (ROW-1)) 
LABEL$=STR$ (ROWNUMBER) 
COLUMN=10 

GOSUB 78 

CALL HCHAR(ROW, 13,93) 
NEXT ROW 

REM CALCULATE & PLOT BARS 
MASTER$="00000000000000 
EFFFFFFFFFFFFFFFFF" 

FOR BAR=1 TO 3 


Continued on p. 86 





Crayon . .. from p. 83 


LOOP7 MOVB 2GRAY, R1+ STORE A GRAY BYTE 


DEC RO COUNT DOWN 
JNE LDOP7 REPEAT UNTIL DONE 
: 
% INITIALIZE PATTERN TABLE - TRANSPARENT 
x 
CLEAR LI RO, >300 INITIALIZE WORD COUNTER 
LI Ri, PATRN INITIALIZE POINTER FOR PATTERN ARRAY 
LOOP8 MOV @ZERO,$Ri+ STORE COLOR = TRANSPARENT 
DEC RO COUNT DOWN FOR NEXT WORD 
JNE LOOP8 WRITE NEXT WORD IN ARRAY 


% LOAD PATTERN TABLE 


LI RO,>800 
LI Ri,PATRN 
LI R2,>600 
BLWP_2VMBW 


VDP PATTERN TABLE ADDRESS 
CPU BUFFER ADDRESS 
1536 BYTES TO WRITE 
WRITE TO VDP RAM 
. 
$ SELECT DOUBLE SIZE AND MULTICOLOR MODE 
: 
LI RO,>O1EA 
BLWP_2VWTR 
SWPB RO 
MOVB RO, 9>83D4 


TO WRITE 11101010 TO VDP RI 
WRITE TO VDP Ri 
MOVE >EA TO MOST SIG BYTE 
STORE COPY (>EA) IN CPU RAM 
® 
%® DEFINE ATTRIBUTES FOR SPRITE #0 
Li 
LI RO, > 300 
LI R1,ATTRIB 


VDP SPRITE ATTRIBUTE LIST 
LOCATION OF ATTRIBUTE LIST 
FOR SPRITE 0 


LI R2,6 6 BYTES TO MOVE 
BLWP_@VMBW WRITE DATA TO VDP_RAM 
® 
® DEFINE # OF ACTIVE SPRITES 
s 
MOVB ONE, OSPRITE STORE NO. OF ACTIVE SPRITES 
IN CPU RAM 
. 
% INITIALIZE CURSOR COLOR AND COLOR CHANGE COUNTER 
s 
LI R3,>0FO01 SPRITE COLORS — WHITE/BLACK IN R3 
CLR _R4 INITIALIZE COUNTER - COLOR CHANGE 
s 
8 ---————-—- START MAIN LOOP -—--------------—- 
s 
8 CHECK JOYST FOR MOTION, FIRE BUTTON AND KEYS 
. 
CHECK LIMI 2 ENABLE INTERRUPTS 
LIMI 0 DISABLE INTERRUPTS 
LI RO,1 INDICATE REPETIONS OF CHECKS 
BL @CHECKS BRANCH TO SUBROUTINE CHECKS 
MOVB SONE, QUNIT SELECT REMOTE UNIT TO SCAN 
BLWP_@KSCAN SCAN LEFT KEYBOARD 
CB @FIRE,2HO5 WAS “E" PRESSED? 
JEO CLEAR IF YES 60 TO CLEAR SCREEN 
CB. aFIRE, 2HO2 WAS "S" PRESSED? 
JNE NEXTI IF NOT, GO ON 
B @SAVE IF SO, BRANCH TO SAVE ROUTINE 
NEXTi CB 9FIRE,@HO6 WAS "R" PRESSED? 
JNE  NEXT2 IF NOT, GO ON 
B @RECALL IF SO, BRANCH TO RECALL ROUTINE 
NEXT2 CB aFIRE,@HIl1 WAS “"T" PRESSED? 
JINE NEXTI IF NOT, 60 ON 
LIMI 2 ENABLE INTERRUPTS 
LWPI GPLWS LOAD GPL WORK SPACE 
BLWP 20000 RETURN TO MASTER TITLE SCREEN 
NEXTS CB d9FIRE,@H14 WAS "C" PRESSED? 
JINE NEXT4 IF NO, ON 
B @SELECT IF YES, GO TO COLOR SELECT ROUTINE 
NEXT4 CB @FIRE,9H18 WAS FIRE BUTTON PRESSED? 
INE SKIP IF NO, SKIP DRAW ROUTINE 
s 
8 ROUTINE TO PLACE BLOCK ON SCREEN 
. 
DRAW LI R0,>300 VDP SPRITE ATTRIBUTE ADDRESS 
LI Ri,R0W CPU BUFFER TO RECEIVE DATA 
LI R2,2 FETCH 2 BYTES 
BLWP_@VNBR FETCH DOT ROW AND DOT COLUMN 
CLR _R7 INITIALIZE R7 AND R8 
CLR RS --FOR USE IN DIVIDE OPERATION 
CLR R2 INITIALIZE OFFSET FOR PATRN ARRAY 
MOVB @ROW,R8 PUT DOT ROW IN R8 
SWPB R8 MAKE IT LEAST SIG BYTE 
AI R8,9 ADD ROW OFFSET FOR COLOR BLOCK +1 
c RB, ICOLMAX IS THE DOT ROW > 255? 
JLT NOCORR IF NOT, DO NOT APPLY CORRECTION 
s 2 COLMAX, R8 IF SO, SUBTRACT 255 
NOCORR DIV @D32,R7 DIVIDE DOT ROW OF BLOCK BY 32 
SLA R7,8 CALCULATE BYTES IN PRECEEDING GROUPS 
A R7,R2 ADD # OF BYTES IN PREVIOUS 32X8 BYTE 
GROUPS |, 
SRL R8,2 DIVIDE REMAINDER BY 4 
A R8,R2 ADD # BYTES ABOVE IN CURRENT 8 BYTE 
SET 
CLR _R7 INITIALIZE R7 AND R8 
CLR R8 --FOR USE IN DIVIDE OPERATION 
MOVB 2COL, R8 PUT DOT COLUMN IN R8 
SWPB R8 MAKE IT LEAST SIG BYTE 
AI R8,8 ADD COLUMN OFFSET FOR COLOR BLOCK 
c RB, 2COLMAX IS THE DOT COLUMN > 255? 
JLT  NOCORC IF NOT, DO NOT APPLY CORRECTION 
s ACOLMAX, R8 IF SO, SUBTRACT 256 
NOCORC DIV @D8,R7 DIVIDE BY 8 
SLA R7,3 CALCULATE BYTES IN PRECEEDING 8 BYTE 
SETS 
A R7,R2 ADD # BYTES IN PREVIOUS 8 BYTE SETS, 
THIS GROUP 
MOV R2,R2 CHECK IF INSIDE PATTERN ARRAY N 
JLT SKIP IF NOT SKIP SCREEN FLACEMENT 
c R2, AMAX CHECK IF INSIDE PATTERN ARRAY EEN 
J6T SKIP IF NOT SKIP SCREEN PLACEMENT 


REPEAT SUBROUTINE CHECKS 20 TIMES 
BRANCH TO SUBROUTINE CHECKS 


LI RO, >14 
BL @CHECKS 


CLR RI INITIALIZE Ri FOR BLOCK COLOR 
MOVB ®FCOLOR, Ri STORE COLOR IN Ri 

SWPB Ri MAKE IT LEAST SIG BYTE 

CLR RO INITIALIZE RO FOR CURRENT ARRAY 


ELEMENT 


MOVB @PATRN(2),R0 COPY ARRAY ELEMENT AT DFFSET INTO RO 


SRL R8,2 CALCULATE WHETHER BLOCK IS LEFT OR 
RIGHT 

JEQ MARKI IF 0 LEAVE BLOCK AS LEFT NYEBLE 

SRL R1,4 IF 1 MAKE BLOCK RIGHT NYBBLE 

SWPB RO MAKE CURRENT ELEMENT LEAST SIG BYTE 

SRL R0,4 GET RID OF LEAST SIG NYEBLE 

SLA R0,4 PUT REMAINING NYBBLE BACK 

JMP__ MARK2 SKIP TO LABEL 


Continued on p. 94 
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LI RI, AITRIB 55 7 
LI R2,4 4 BYTES TO MOVE 
Crayon ... from p.85 BLMP_2vvRM LOAD DATA TO GET CURSOR SPRITE 
MARKI R0,4 GET RID OF MOST SIG NYBBLE B SKIP BRANCH TO LABLE SKIP 
RO, 4 PUT BACK REMAINING NYBBLE . 
RO MAKE IT LEAST SIG BYTE 8 DSR ROUTINE TO SAVE “SCREEN" -- PATTERN TABLE 
RI,RO ADD NEW COLOR TO ADJACENT VALUE . 
ro MAKE IT MOST SIG BYTE SAVE LI RO,>1000 PREPARE TO MOVE PATRN TO VDP BUFFER 
RO, APATRN (2) MOVE IT TO ARRAY AT OFFSET RI, PATRN CPU BUFFER ADDRESS 
RO, >0800 VDP PATTERN TABLE ADDRESS R2, >600 1556 BYTES TO MOVE 
RI,PATRN ® CPU BUFFER vB WRITE DATA 
R2, >600 1536 BYTES TO MOVE RO, PAB VDP PERIPHERAL ACCESS BLOCK ADDRESS 
AVMBI WRITE TO REDRAW SCREEN RI,PDATA CPU BUFFER TO BE WRITTEN TO VDP 
RS CLEAR RS AND R6 TO RECEIVE JOYST VALUES R2,21 21 BYTES TO WRITE 
R6 @vMB” WRITE PAB 
@JOYSTY,RS PUT Y RETURN IN RS R6,PAB+9 SET POINTER TO NAME LENGTH 
RS MULTIPLY BY -1 R6, APNTR STORE IN >8356 >@357 
RS,2 MULTIPLY BY 4 @DSRLNK EXECUTE SAVE OR LOAD 
@JOYSTX,R6 PUT X RETURN IN R6 DATA 8 
R6,2 MULTIPLY TIMES 4 B @CHECK IF SO, BRANCH BACK TO BEGINNING 
R6 MAKE XVEL LEAST SIG BYTE . 
RS,R6 MOVE YVEL TO R6 AS MOST SIG BYTE 8 DSR ROUTINE TO RECALL “SCREEN” -- PATTERN TABLE 
RI, USRWS+12 CPU ADDRESS OF VELOCITY BYTES (R6) 
RO, >0780 VDP ADDRESS OF MOTION TABLE RO, PAB VDP PERIPHERAL ACCESS BLOCK ADDRESS 
R2,2 2 BYTES TO MOVE RI, PDATA CPU BUFFER TO WRITE 
SMB WRITE DATA TO VDP RAM R2,21 21 BYTES TO WRITE 
®CHECK START LOOP OVER AGAIN 2VMBN WRITE PAB 
CI RO, PAB SUBSTITUTE "LOAD" 1/0 OP CODE 
. OF MAIN PROGRAN LOOP --- = LOAD, RI MOVE OP CODE TO RI 
LI @vsSBI WRITE BYTE TO PAB 
8 COLOR SELECT ROUTINE R6, PAB+9 SET POINTER TO NAME LENGTH 
s RO, APNTR STORE IN >6356 >0357 
SELECT LI RO,>07EE CHANGE BACKGROUND TO GRAY @ADSRLNK COPY DATA TO VDP BUFFER 
WRITE TO VDP R7 8 
LI VDP BUFFER FOR PATTERN TABLE RO, >1000 PREPARE TO COPY FROM VDP TO PATRN 
LI CPU BUFFER FOR PALETTE RI, PATRN CPU BUFFER ADDRESS 
LI 1536 BYTES TO MOVE R2, 2600 1536 BYTES TO COPY 
BLWP DISPLAY PALETTE @vVMBR COPY BUFFER 
LI VDP BUFFER FOR ATTRIBUTE LIST RO, >0800 NOW COPY TO PATTERN TABLE 
LI ARROW ATTRIBUTES R1, PATRN ADDRESS OF CPU BUFFER 
LI 4 BYTES TO MOVE R2, >600 1536 BYTES TO COPY 
BLUP WRITE DATA avmBI COPY TO TABLE 
S BRANCH TO “DEBOUNCE" SUBROUTINE CHECK BACK TO THE BEGINNING 
LIMI ENABLE VDP INTERRUPT . 
LIMI DISABLE INTERRUPT 8 SUBROUTINE TO PERIODICALLY CHANGE SPRITE COLORS 
20NE, GUNIT IDENTIFY REMOTE UNIT TO SCAN . 
BLWP_2KSCAN SCAN LEFT KBD AND REMOTE UNIT #1 CHECKS AI R4,>100 ADD 256 TO R4 
FIRE, dH18 CHECK FIRE BUTTON JEO CHANGE WHEN R4 REACHES 0, CHANSE COLOR 
JEO CMARK IF PRESSED, CHANGE MARK COLOR DEC RO DEC COUNTER 
@FIRE, dH14 CHECK “C" KEY JNE CHECKS IF NOT O ADD ANOTHER 256 
JE CSCRN IF PRESSED, CHANGE SCREEN COLOR JMP_RETURN BACK TO MAIN PROGRAM 
R6 INITIALIZE R6 CHANGE SWPB RI SWITCH COLOR BYTES IN RI 
QJOYSTX,R6 PUT JOYST Xx IN R6 MOV R3,R1 PUT R3 IN RI 
R6,2 MPY BY 4 LI RO,>303 ADDRESS OF SPRITE #0 COLOR IN VDP RAM 
Ré MAKE LEAST SIG BYIE BL VS WKIIE MUSI GIG BYTE OF RI 
RI, USRWS+12 LOAD CPU ADDRESS (Ré6) RETURN RT BACK TO MAIN PROGRAM 
RO, >0760 LOAD ADDRESS OF MOTION TABLE s 
R2,2 MOVE 2 BYTES 8 DEBOUNCE SUBROUTINE 
ave LOAD DATA TO VDP RAM : 
LOOP9 GOTO LooP9 DEBNC MOVB 2ONE, UNIT KEY UNIT TO CHECK 
aDOTCOL DETERMINE COLOR FROM DOT COLUMN OF ARROW BL WP_2KSCAN SCAN KEYBOARD 
RI MAKE IT MOST SIG BYIE CB SFIKE, @NUKEY IS NO BEY PRESSED? 
R1, @BCOLOR MOVE IT TO BCOLOR JNE  DEBNC IF A KEY IS PRESSED, CHECK AGAIN. 
BACK JUMP TO BACK RT GO BACK TO MAIN PROGRAM 
#aDOTCOL DETERMINE COLOR FROM DOT COLUMN OF ARROW . 
R1,12 PUT IN PROPER POSITION FOR @FCOLOR 8 SUBROUTINE TO DETERMINE COLOR FOR ARROW 
MOVE IT TO FCOLOR . 
DEBOUNCE DOTCOL CLR RI INITIALIZE Ri TO RECEIVE DOT COLUMN 
PREPARE TO RETURN SCREEN CULUR LI KO, 301 VDF ADDRESS OF DOT COLUMN 
@BCOLOR, RO PUT BACKGROUND COLOR IN RO BLWP_2VSBR READ BYTE FRON ATTRIBUTE TABLE 
ro MAKE IT LEAST SIG BYTE SWPB RI MAKE IT LEAST SIG BYTE 


èHo7, Ro INDICATE WRITE TO VDP R7 AI RI, 207 ADD OFFSET FOR POINT OF ARROW 
AVUTR WRITE IT TO R7 SRL R1,4 DIVIDE BY 16 


RO, >@00 VDP PATTERN TABLE ADDRESS RT RETURN 
R1,PATRN PATTERN BUFFER IN CPU RAM 

R2, >600 1536 BYTES TO WRITE START* 

ave LOAD PATTERN SCREEN 

RO, 2300 VDP SPRITE ATTRIBUTE TABLE ADDRESS END MARKER AUTOSTART 


x 
it EL 
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ADDR LABEL 


7014 


7DD2 LI 


DeBUGS on DisPravy 


99'er Program Bug 


LISTING #1 (SEGMENTED) 


SCREEN DUMP PROGRAM FOR MINI.MEMORY 
BY PATRICIA SWIFT 99'ER VERSION 2.1.2 


OPCODE DOFERANDS COMMENTS 


SRA 
JGT 


INC 


LI 
fade 1 


LI 
LI 
LI 


LI 
MOV 


; LI 

; MOV 
LIO 
LI 


« LI 
la 


JMP 
LI 


. 


__31B4B, >FFOO 


@>9802,@S1 GET MSB OF GROM ADDKR INTO SI 
esi 

&>98902,@S1 GET LSB OF GROM ADDR 

esi 

esi 

©, >1D0@ 
1,FD 

2,36 
€>6028 

6, >1D09 
6, €>8356 
@>6038 

8 

19, >0400 
19, @>7DEA 


CORRECT FOR AUTO-INCREMENI 


WRITE PAB TO vDF RAM 


POINT TO DEVICE NAME LENGTH 
DSRLNK TO OFEN PRINTER 


<<%% changed instruction 
<<8% changed instruction %8>; 
<<3% deleted instruction 
@, 1D0© 


" FOINT 
,l 12 
2 DO NEXT BYTE, IF MORE 
FUT OUTPUT FAYTE IN MSB OF 
STORE AT DO 
FOINT TO NEXT BYTE OF DO 
5,1 1/2 
L3 CONSTRUCT NEXT OUTFUT EYTE 
©, >1D05 
1370000 — 
E: 6024 
0, >1E00 
1,E1 
2,4 
E? 6928 
6, >1D09 
6, @>8356 
€>0038 
8 
19, >0000 
19, @>7DEA 


TO NEXT INF BYTE 


+ 2D0 (8) 


<<%% changed instruction %%>} 
PUT LENGTH OF 4 IN PAB 


FUT ESC K SEU. IN DATA BuFF 
POINT TO DEVICE NAME LENGTH 


DSRLNE TO WKITE ESC r. SEQ. 


<< 
<<83 
<<8% 


changed instruction 
Changed instruction 
. deleted instruction 
©, >1D0OS 

1, >0B0@ 


10, 20400 
190, @>7DEA 


<<k3% so); 
8E)>> 
*8>; 


Changed instruction 
<<$% changed instruction 
<<8% deleted instruction 

DO NEXT SCREEN CHARACTER 

COME HERE WHEN FINISHED DUM 


ce 
@, >1D08a 


>0012, >IEO0, >FFOO, }>OO0d, 
PAB DEFINITION 
* RS232. PA=0. DA=8. BA=9600. CR” << kchanges}. 
ARE DEVICE NAME 
CR LF 


AVIA 


> AD9A 

<<£% changed line x%8>. 
ESC K GRAFHICS SEQUENCE 

2 SAVE AREA 

*@D1B, >4108 . 

CR AND ESC A VERT SFACING 


x8>> 


3%3>; 


A Screen Dump Utility 


After working with Super Language: 
A Screen Dump Utility—Part 2 in the 
November 1982 issue, we came up with 
an improvement that we just had to pass 
along. The changes shown here, in the 
segments of Listing #1 from that 
November article, cause the screen 
dump program to write one full screen 
line at a time to the printer. This really 
speeds up the dump and reduces the 
printer-head motion. 

The original DEBUGSs for Screen 
Dump which appeared in the December 
1982 issue on page 40 should be ig- 
nored. The File Descriptor should be: 

RS232.PA=O.DA=8.BA=9600 
That part of the Screen Dump correc- 
tions having to do with an error on page 
24 of the November issue (column 2 
under Mini-Memory Considerations 
Step 5) should read as follows: 


5. Put the entry point for DUMP into the 
DEF/REF table by entering the following 
lines: 

AORG >7FEB(CR) 

TEXT ’DUMP (CR) 

DATA. >7D14 (CR) 


Note: There are 2 spaces required 
following the word DUMP in the above 
TEXT directive for a total of 6 characters 
within the apostrophes. 


A DEBUG in the Tex-Scribe article oc- 
cured on page 16 of the December 1982 
issue. Regarding Table 2 ‘‘T1-99/4 Im- 
pact Printer Mode Commands,”’ it was 
brought to our attention that the TI 
printer does not have an Italics 
mode. .. We designed that table using 
an Epson MX-80 with Graftrax option 
and mislabeled it... If you have the 
TI-99/4 Impact Printer, refer to your 
owner's manual for the available mode 
commands. 











A Program By 
Martin Kroll, Jr. 


218 Kaplan Ave. 
Pittsburgh, PA 15227 


ave you ever tried entering an 
His Language program line 

by line into the Mini Memory car- 
tridge only to find it doesn't work? 
Somewhere you typed in a wrong opera- 
tion code . . . and you find yourself re- 
entering the entire program because you 
have no idea where the error is. That is 
the reason we on the 99'er staff were so 
pleased to see a program submitted for 
publication that can, if used properly, ease 
most of the pain: a disassembler written 
in TI BASIC that runs with the Mini 
Memory plugged in. And if you have an 
RS232 interface and a printer, you will be 
able to produce a hard-copy tn (or 
screen listing, without a printer) of the 
original Assembly Language. This source 
listing can then be studied to locate the er- 
ror(s). 

Here's the way it works: Once an 
Assembly Language program is ‘’assem- 
bled'’ into machine code (the binary pat- 
terns on which the computer makes its 
decisions), it becomes very difficult for 
humans to read. Therefore, when debug- 
Bing, it is a great help to convert this 
machine code into something we can 
understand. The disassembler program 
does just this by translating the machine 
code (‘object’) back into Assembly 


Language (‘’‘source’’)  mnemonic 
statements. For example: 
MACHINE CODE ASSEMBLY LANGUAGE 
>04C0 CLR RO 


The ‘‘>’’ in the machine code simply 
means the value following it is hex- 
adecimal (base 16). The Assembly 
Language mnemonic statement makes 
much more sense: ‘“CLR RO” means 
CLeaR Register zero: The disassembler 
reads the value >04C0, determines the 
type of mnemonic code it is represented 
by, and prints the Assembly Language 
statement on the printer or screen. 


The Program 
Make sure your Mini Memory cartridge 
is loaded with the software you wish to dis- 


SUPER LANGUAGE 
A Home Computer Assembly Language Series 


MINI MEMORY 









DISASSEMBLER UTILITY 


assemble, and that the cartridge is properly 
installed in the TI-99/4A. After loading the 
disassembler program under TI BASIC, 
type RUN. The message ‘‘WANT A PRINT 
OUT? Y/N"” is displayed. Press Y and 
ENTER if you have a printer (N, if you want 
to display the disassembled code on the 
screen). The next. message ‘DEVICE 
NAME?” is displayed if you chose Y. Enter 
the parameters for your printer. (For ex- 
ample, RS232.BA=9600.DA=8.) Once 
this is done, the master option screen 
appears: x 

1. DISASSEMBLE OPCODE 

2. DISASSEMBLE DATA 

3. DISASSEMBLE TEXT 

4. FINISH 


If option 1, 2, or 3 is selected, the message 
‘‘DISASSEMBLE FROM? (4 DIGIT HEX 
ADDRESS)” is displayed. Enter the starting 
location in Mini Memory for the segment 
of machine code you wish to disassemble. 
The next prompt is “TO? (4 DIGIT HEX 
ADDRESS). Enter the last address of the 
machine code segment. Mini Memory 
programs may reside anywhere between 
addresses >7000, and >7FFF. When ac- 
tually entering the first and last address of 
the block of memory you wish to 
disassemble, you do not need to enter the 
‘‘greater than”' sign (>). 

If option #1 is selected, the machine 
code will be interpreted as operation code 
instructions to the computer. In doing this, 
whenever the disassembler comes across 
data or text, either a ‘‘pseudo’’ mnemonic 
statement will be produced or the message 
“ILLEGAL OBJECT CODE” will be printed. 
After running option #1, you can get a 

od idea ot where the data and text is 
located. Now you can use option #2, or 
#3. 

Option #2 will print all machine code 
between the start and stop addresses as 
DATA statements. You will have to coor- 
dinate this print-out with the one you 
generated in option #1 if you do not know 
where the data is. 

Option #3 will print all machine code 
from the starting to the stopping address 
in TEXT format. This means that all 
machine code will be treated as ‘ASCII’ 
characters. If you try to print machine 
code in TEXT format which is not printable 
text, a question mark will be output for 
each non-printable character. Once you 
are finished disassembling, select option 
#4 to exit the program. 


How It Works 

With the Mini Memory installed, you 
have several new commands at your 
disposal in TI BASIC. One command 
which made this program possible is 
‘CALL PEEK”. It will return the decimal 
value of any mèmory location. Once it has 
the decimal value of a memory location, 
the program then converts that value to 
hexadecimal (base 16), and binary (base 
2). The hexadecimal value is used in the 
printed report. The binary value is used to 
extract the control fields and operation 
code to ascertain the format and type of 
instruction that represents the machine 
code. 

Some final notes: This disassembler can- 
not reconstruct the ‘labels’ that you have 
used to mark portions of the program for 
branch or jump destinations. If you have 
the TI Memory Expansion, you will also 
find it possible to disassemble machine 
code in it with this disassembler utility. AII 
in all, it is a very useful tool. 


EXPLANATION OF THE PROGRAM 


Mini Memory Disassembler 





Initialize array, and set up 
printer. 
Display main title screen 
and branch to options. 
Subroutine to wait for 
Enter to be pressed. 
Input start and stop ad- 
dresses to be disassem- 
bled. 
Get hexadecimal value of 
addresses. 
Control loop to get a 
value from memory and 
convert it back to hex- 
adecimal code. 
Branch to formatting 
subroutines, depending on 
the code values. 
930-1210 Subroutine to print 
disassembled listing. 
1220-2950 Subroutines for instruction 
formatting. 

1220-1380 Format #1. 

1390-1620 Format #2. 

1630-1750 Format #3. 

1760-1890 Format #4. 

1900-2020 Format #5. 

2030-2410 Format #6. 

2420-2470 Format #7. 


830-920 


Disassembler .. 


2480-2780 Format #8. 

2790-2950 Format #9. 
2960-3120 Convert binary to 

decimal. 

3130-3200 Convert decimal to 
binary. 
Get binary divisor. 
Get the ““T”' field. 
Set up operand fields. 
Get the mnemonic of the 
op-code. 
Convert decimal to 
hexadecimal. 
Control loop for display- 
ing DATA. 
Control loop for display- 
ing TEXT. 
Display DATA on the 
screen. 
Display the TEXT on the 
screen. 
Subroutine to ‘‘PEEK”’ at 
a memory location. 
End of program. 


3210-3270 
3280-3370 
3380-3530 
3540-3570 


3580-3700 
3710-3900 
3910-4070 





KKEKKKLKEEEKEkKk 
* MINI-MEMORY ®* 
* DISASEMBLER % 
ULLELKKKEKIKTKRI 
BY MARTIN KROLL 
(P9"ER VERSION 2.5.1 












“WANT A PRINTOUT? 
YIN":PRINT® 


| IF PRINTW<>"Y" THEN 290 


"DEVICE NAME? 
“1:DEVICE® 
OPEN #1: DEVICE® 

ALL CLEAR 
“PRESS 1 - DISASSEMBLE Q 
1"PRESS 2 - DISASSEMBLE 
1"PRESS 3 - DISASSEMBLE T 
"PRESE 4 - FINISH" 
CALL KEY(@,K,ST) 


IF (K<49)+(K>S2)=-1 THEN 31@ 


CALL CLEAR 

IF K=52 THEN 453@ 

GOSUB 450 

IF K=49 THEN 670 

IF (K=5@)+(F=1)=-2 THEN 3710 
IF (K=5@)+(F=@)=-2 THEN 4089 
IF (K=51)+(F=1)=-2 THEN 5910 
IF (K=51)+(F=@)=-2 THEN 42590 E 
LSE 4530 

PRINT 1: 

INPUT “PRESS ENTER TO CONTINUE 
:":CON$ 


$ 


FIFA 


E 


“"DIS-ASSEMBLE FROM ? 
(4 DIGIT HEX ADDRESS) 
pu "1iA6 
#@@ IF POS("13579BDF",SEG$ (A$,LEN( 
* © A$),1),1)=® THEN 500 
STAR ezceante* Pol LEN (A%) -1)&SEG$(" 
@2468ACE" , POS (" 13579BDF ", SEG ( 
i, ‘AS, LEN(AS), 1), 1), 1) 
| i@@IF LENCAS) =4 THEN 530 
È INT :: "INPUT MUST HAVE 4 HEX 
“ DIGITS":: 
“GOTO 470 
7 ‘INPUT “TO ? (4 DIGIT HEX ADDRE 
o 988S) “":B$% 
Ri IF PRESTA PRON REA e LEM 
pie eB$) , 1)=@ THEN 560 
EC] elisa. LEN(B$)-1)&SEG$(" 
(7 1702468ACE", POS ("13579BDF", SEG$ ( 
- Eps, LEN(BS), 1):31),1) 
IF LEN(B$) 4 THEN 59 
PRINT 11 "INPUT MUST HAVE 4 HEX 
* DIGITS":1: 











(AB: DATA 61440, SOCB, 57344, SOC, 5324 


d47@ IF DIS<128 THEN 1490 
+48@DIS=DIS-254 

149@ IF SEG$(0P$,2,1)="B" THEN 1560 
15@@ IF DIS=@ THEN 1560 
+ 454@DIS=DIS*2+L0C+2 

1526 V1=DIS 

153 GOSUB 354@ 
1548 OPERS=0P$&" 
155@ GOTO 940 
156 OPERS="NOP" 
1570 GOTO 946 
158@ REM CONTROL INSTRUCTION 
OPERS=0P$&" “&STR$ (DIS) 
GOTO 946 

DATA 7934, TB, 7480, SBZ, 7424, SBO 
,7168,JOP, 6912, JH, 6656, JL, 6400 
s JNO, 6144, JOC, 59898, JNC, S432, JN 
E, 5376, JGT 
lé2@ DATA 5120, JHE, 4864, JEQ, 4408, JL 
'E, 4352, JLT, 4094, JMP 

16568 REM FORMAT III 

1#4® REATORE 1750 

1688 LUHLIH ss4e 

1660: T$=SEG$ (BIN$, 11,2) 

1470 Rs=SEG$ (BIN$, 13/4) 

‘1660 GOSUB 3070 

lé#@ GOSUB 32080 
, SER$ 


>"BHEX$ 


REM DETERMINE INSTRUCTION FO 
RMAT 


«IF V<512 THEN 365699 

IF V<832 THEN 2480 | R$=SEG$ (BIN$, 7,4) 

IF V<1024 THEN 2420 GOSUB 3070 

IF V<2048 THEN 2050  OPER®=OP9&" "8998k", "LSTR$ (R) 
IF V<{4096 THEN 1999 GOTO 948 

IF V<B192 THEN 1390 ‘DATA 1@24@, XOR, 9216, CZC, 8192, C 
IF V<11244 THEN 1630 E OC 

IF V<12288 THEN 2799 2 REM FORMAT IV 









V<14336 THEN 1760 

V<16384 THEN 2790 ELSE 1220 

REM PRINT MNEMONIC OP CODE 

GAP=POS (OPER$, “" “,1) 

IF GAP<64 THEN 980 

E$S=OPER$ 

GOTO 990 

E$=SEG$ (OPER$, 1, GAP) &SEG$ (“ 
",1, 5-GAP) &SEG$ (OPER$, GAP+1 

s LENCOPER$) ) 


. ‘RESTORE 1890 

| 279)@GOSUB 3540 

> 1790 Rs—SEG$ (BIN$, 7,4) 

a È GOSUB 3072 

st (.C$=STR$ (R) 

21 |R$=SEG$ (BIN$, 13,4) 

KT$=SEG$ (BIN$, 11,2) 

GOSUB 3070 

1850 GOSUB 3280 | 
Al Ss-Rs 


99@ IF F=@ THEN 1020 1876. OPERS=0PS&" “LSS&", "LC$ 
1000 PRINT #F:L0C$;"  “;V$;" “; || 2868 “GOTO 940 

Es 189% DATA 13312, STCR, 12288, LDCR 
1910 GOTO 10930 1980 REM FORMAT V 
1620 PRINT #F:L0C$%;“ “;V$;" “;E$ 191® RESTURE 2020 
1850 IF L=3 THEN 1060 192® GOSUB 3544 
1848 IF L=2 THEN 1160 193® RS=SEG$ (BIN$, 13, 4) 
1@5@ IF L<>1 THEN 1200 194% GOSUB 3070 
10860 IF F=0 THEN 1990 1956 S$="R"&STR$(R) 
107@ PRINT #F:LO$(1);" ia VIS (1) 1946 Cs=SEG$ (BIN$, 9,4) 
108@ GOTO 1199 197@ R$S=C$ 
109@ PRINT #W:L0$(1);" “si VV$(1) 1988 GOSUB 3079 
11@@ IF L=1 THEN 1200 199® Ds=STR$ (R) 
1110 IF F=© THEN 1140 200@ OPERS=0P$t" “LS$&", "tD$ 
1320 PRINT #F:LO$(3);"  “;VV$(3);" | 261® GOTO 948 

";0PE$ 282® DATA 2814, SRC, 2560, SLA, 2304, SR 

1136 GOTO 1200 L, 2048, SRA 
4348 PRINT #10 5)" “"pVVO (5) 1" " | 2630 REM FORMAT VI 

3 OPES 284@ RESTORE 2150 
115@ GOTO 1200 2656 GOSUB 3540 
1160 IF F=@ THEN 1190 2846 RsS=SEG$ (BIN$, 13, 4) 
117@ PRINT #F:LO$(1);" ";VV$S(1):L | 2670 T$=SEG$(BIN$, 11,2) 

0% (2) ;" "iv (2) 2888 GOSUB 3070 
1188 GOTD 1200 209® GOSUB 3290 
1199 PRINT #F:L0$(1);" “;VV$(1):L0$ | 2466 IF Rsc"e>6018" THEN 2130 

(2) ;" "pa VWv8(2) 2110 IF R$>"@>6050" THEN 2130 
1200 NEXT LOC 212@ GOSUB 2179 
1218 GOTD 420 2130 OPERS=OPS&" “IR$ 
122@ REM FORMAT I 214% GOTO 949 
1236 RESTORE 1370 2156 DATA 1856, ABS, 1792, SETO, 1728,S 
1248 GOSUB 354 WPB, 1664, BL, 1609, DECT, 1536, DEC 
1250 T$=SEG$ (BIN$, 11,2) , 1472, INCT, 1408, INC 
126@ R$=SEG$ (BIN$, 13,4) FIS DATA 1344, INV, 1280, NEG, 1216, CL 
127@ GOSUB 3070 è R,1152,X,1088,B, 1924, BLWP 
128@ GOSUB 3250 217@ REM MINI MEMORY UTILITY PROGR 
1290 Ss-Rs AMS 
130@ T$=SEG$ (BIN$,5,2) ZIE DATA 6018, GPLLNK, 601C, XNLLNK, 6 
1310 R$=SEG$ (BIN$, 7,4) "%@2@, KSCAN, 6024, VSBW, 6028, VMBW, 


132® GOSUB 3079 
1538 GOSUB 3299 
1540 De-1t0 

1356 G-tRe=UPak" 
1346 GOTO 940 


‘‘602C, VSBR, 60938, VMBR 
2198 DATA 6034, VWTR, 6038, DSRLNK, 603 
T, LOADER, 5049, NUMASG, 6044, NUMR 
“EF, 604B, STRASG, 604C, STRREF, 605 
è ‘2, ERR 
2206 RESTORE 2189 

‘READ US,UTIL$% 
222%IF SEG$(R$,3,4)<>U$ THEN 2219 
2ZS81F F=® THEN 2250 

"  ("SUTILS&")" 

IF U$="6018° THEN 229® 
IF U$="6038" THEN 2290 
IF U$="601C" THEN 2298 


"ESS", "8D$ 


. B, MOVB, 49152, MOV, 45056, AB, 4096 
a,A 
1356 DATA 36864,CB, 32768, C, 28472, SB 
124576, S, 20480, SZCB, 16384, SZC 
1390 REM FORMAT II 
1 *RESTORE 1610 


141@ GOSUB 3540 

142@ DISP$=SEG$(BIN$,9,8) =3 

1 ‘DIS=@ { ua 

1440 FOR X=8 TO 15 | 2326V1=L0c 

e 05 va care (rara, X-7,1)) 3300 
Api (3) HEX 


1 NEXT X 


| auime «e 


| 25646 
| IFPRÈ 1 = 256310242 


2350 
2599 
2400 
2410 
2420 
2430 
2440 
2450 
2460 
2470 


2610 


2610 


RELEEE 


GOSUB 3509@ 

V$ (3) =HEX$ 

OPE$="DATA >"&HEX$ 

RETURN 

REM FORMAT VII 

RESTORE 2470 

GOSUB 3540 

OPER$=OP$ 

GOTO 940 

DATA 992, LREX, 969, SKOF, 928, SKO 
N, 896, RTWP, 964, RESET, 832, IDLE 
REM FORMAT VIII 

RESTORE 2780 

GOSUB 3540 

R$=SEG$ (BIN$, 13,4) 


-GOSUB 3070 


D$="R"&STR$ (R) 
LOC=L0C+2 
L=L+1 

V1=L0C 

GOSUB 359@ 

LO$ (L) =HEX$ 
GOSUB 4470 
M1=MX 

N1=NX 
V1=256%M1+N1 
GOSUB 3560 
VV$ (L) =HEX$ 
S$=">"8HEX$ 

IF OP$="LIMI" 
IF OP$="LWPI" 
IF OP$="STST" 
IF OP$="STWP" 
OPERS=OP&&" “& 
GOTO 940 
OPER$S=OP$&&" 
GOTO 940 
LOC=LO0C-2 
L=L-1 
OPER$S=OP$&“ 
GOTO 940 
DATA 768,LIMI,734,LWPI,704, STS 
T,472, STWP, 640,CI,408,0RI, 576, 
ANDI,544,A1,512,L1 

REM FORMAT IX 

RESTORE 2950 

GOSUB 3540 

R$=SEG$ (BIN$, 13,4) 

T$=SEG$ (BIN$%, 11,2) 

GOSUB 3070 

GOSUB 3200 

S$RN$ 

R$=SEG$ (BIN$, 7,4) 

GOSUB 3070 

IF OP$<>"X0P" 
D$=STR$ (R) 
GOTO 2930 
D$="R"&STR$ (R) 
OPERS=OP$&" “"LS$&", "&D$ 

GOTO 940 

DATA 15360, DIV, 14336, MPY, 11264 
, XOP 

REM CONVERT TO DECIMAL 

DEC=0 

FOR X=3 TO 15 STEP 4 
TEMP2$=SEG$ (TEMP$, (X+1)/4,1) 
IF ASC(TEMP2%) >57 THEN 3050 
TN=ASC (TEMP2$) -4@ 
DEC=DEC+TNES(X) 

NEXT X 

RETURN 

TN=ASC (TEMP2$%) -S5 

GOTO 3020 


THEN 272@ 
THEN 2720 
THEN 274@ 
THEN 274@ 

", "8% 


"&ES$ 


"&D$ 


THEN 2920 


MAF@..REM GET REGISTER # 


‘3090. R=0 
‘3100 R=R+VAL (SEG& (R&, X-11,1)) #S(X) 


‘3136 REM CONVERT TO BINARY 


3166 BIN=INT(VA/SCX)) 


: 3100 BIN$=BINS&STR$ (BIN) 
IPA. NEXT X 


‘321@ REM GET BINARY DIVISOR 





3810 V1=256tM+N 

320 GOSUB 3560 

363@ IF LOC=LO0P+16 THEN 3860 

3840. IF LOC>=B-1 THEN 3690 
PRINT #F:">"“;HEX$;","; 

3@68 NEXT LOC 

> 5870 PRINT #F:">";HEX$ 

3688 NEXT LOOP 

3@9@ PRINT #F:">“;HEX$ 

- 53908 GOTO 420 

È: 3910 REM DISPLAY TEXT 

| 392@ FOR LOOP=A TO B STEP 54 


Sese. FOR X=12 TO 15 


31108 NEXT Xx 
3426 RETURN 






si BIN$&="* 
3 FOR X=@ TO 15 


3176: VA=VA-(BINES(X) ) 


320€ RETURN 


322@ DATA 32768, 16384, 8192, 4096, 204 |' S9@-PRINT #F:HEX$; “ 
\{ 8, 1024,512,256, 128,64, 32, 16,8, EXT O *"; 


" 4,2,1 i 39%®- FOR LOC=LOOP TO LOOP+53 
$z35® RESTORE 3220 \. 397@ GOSUB 4470 
3248 FOR X=® TO 15 }. GO. MM 
325@ READ S(X) 3996 IF (MK<127)+(M>31)=-2 THEN 49010 
3266 NEXT X 4000 t=63 
3276: RETURN 4010 PRINT #F:CHR$(M); 
3288 REM GET T-FIELD #62@'IF LOC=B THEN 4060 
3290 IF T$<>"00" THEN 3320 #835$ NEXT LOC 
3J0e R$="R"&STR$ (R) 4086 PRINT #F:"”" 
3318 RETURN 3080 NEXT LOOP 
3320 IF T$s<>"@1" THEN 3350 > MR6@ PRINT WE: " 
33350 R$="*R"&STRS$ (R) (4@7@ GOTO 420 
3348 RETURN 4859 REM DISPLAY DATA ON SCREEN 
3358 IF T$<>"11" THEN 33BO 489@ FOR LOOP=A TO B STEP 6 
3360 R$="tR"&STR$ (R)&"+" 419@ VI=L00P 
337@ RETURN 411@ GOSUB 3580 
338@ LOC=L0C+2 4120 LS-HEX$ 
3Ùs9e-L=L+1 4130 PRINT #F:L$;" DATA “; 
34@®® GOSUB 4470 414@ FOR LOC=L00P TO LOOP+4 STEP 2 
34108 Mi=MX 4156 GOSUB 4470 
3428 N1I=NX 4160 M=mX 
3430 VI=LOC 417@ N=NX 
3446 GOSUB 35590 4180 V1=256tM+N 
3488 LO$ (L) =HEX$ 419© GOSUB 3599 
34A@ VI=M13256+N1 42@8@ IF LOC=L00P+4 THEN 4230 
3478 GOSUB 3580 421@ IF LOC>=B-1 THEN 4260 
34G@' VVS (L) =HEX$ 4220 PRINT #F:">";HEX$;“,"; 
3498. IF R<>@ THEN 3520 42Z5@ NEXT LOC 
3500 -R$S="G>"LHEXS 424@ PRINT #F:">";HEX$ 
3518 RETURN 425® NEXT LOOP 
3520 R$="@>"&HEXS&" (R"&STR$ (R)&")" 4260 PRINT #F:">";HEX$ 
SGI® RETURN 427@ GOTO 420 
;354® REM GET MNEMONIC OF OP CODE 429@ REM DISPLAY TEXT ON SCREEN 
‘3835 READ OPV,O0P$ 429@ FOR LOOP=A TO B STEP 14 
3560 IF V<:OPV THEN 3550 4398 V1=L00P 
3578 RETURN 4318 GOSUB 35680 
359€ REM CONVERT TO HEX 4320 PRINT #F:HEX$;" TEXT ?"; 
3GPO HEXS="" 4353@ FOR LOC=L00P TO LOOP+13 
3k@@ FOR X=3 TO 15 STEP 4 4348 GOSUB 4470 
3é1@ VH=INT(VI/S(X)) 4350 M=MX 
362@ Vi=vVI-VHES(X) 4368 IF (M<127)+(M>31)=-2 THEN 4390 
363@ IF VH>9 THEN 3670 4370 M=43 
3440 HEXS-HEX$&STRS$ (VH) 4380 PRINT #F:CHR$(M); 
345@ NEXT X 43%® IF LOC=B THEN 4430 
3&6@ RETURN 4406 NEXT LOC 
3670 HEX$=HEX&&CHR$ (VH+S5) 4410 PRINT #F:“’" 
366 GOTO 345a 4420 NEXT LOOP 
36#0 OPER$="ILLEGAL OBJECT CODE" 4830 PRINT #F:""" 
3708 GOTO 940 4440 GOTO 420 
371@ REM DISPLAY DATA 4450 REM 
372@ FOR LOOP=A TO B STEP 18 4468 REM © PEEK ROUTINE 
3730. V1=L00P 447® IF LOC<327468 THEN 4500 
374@ GOSUB 3580 4480 LOCX=L0C-65534 
3750 Ls=HEX$ 4498 GOTO 4510 
3768 PRINT #F:L$;" “; “DAT 450@ LOCX=L0C 
A"; 451@ CALL PEEK(LOCX, MX, NX) 
377@ FOR LOC=LOOP TO LOOP+16 STEP 2| 452 RETURN 
3788 GOSUB 4470 ARA END 
3790 M=MX 
SROR. N=NX 


Just Assemble. Melody: 


Using the Machine Language Routine 


This program was intended to facilitate the construction of sound lists 
for Assembly Language applications, but it may also be used in conjunc- 
tion with TI BASIC programs if some care is exercised. Because the sound 
list will play in its entirety, even while the BASIC interpreter continues, 
your program can go on to other things while the music plays. However, 
because TI BASIC has no idea what is going on, there may be unpredict- 
able side effects, especially when BASIC is manipulating strings or display- 
ing graphics on the screen. [See the Editor/Assembler manual, page 312, 
for more information.—Ed.] Any CALL SOUND statement will stop the 
execution of a sound list. Here is a sample program which will play a 
sound list over and over until a key is pressed, then interrupt it (much 
like the techniques used in Tl's Tombstone City): 


100 CALL LINK(‘’PLAY”’) 
110 CALL PEEK(—31794,N) 
120 IFN=0 THEN 100 


Is it done? 
Yes, play it again. 


>01 


@TA,RI 
R1+,R2 
R2,@>830C 


@>6018 

> 0038 
@>831C,R0 
@>6028 


Music in Mini Memory 


Any value poked into this address 
will be used as the address of the 
sound list. 


Get table length pointer. 

RI is now start of sound list. 

Copy length to GPL parameter 
lress. 


Get string space routine. 
Get address of allocated space. 
Move sound list to VDP RAM. 


130 CALL KEY(0,K,S) 
140 IF S=0 THEN 110 
150 CALL SOUND(-1,- 1,30) 


Key pressed? 
No, check sound again. 
Stop the sound list. 


. program continues 


The PEEK statement (line 110) reads a byte at >83CE. This will be zero 
when the interrupt routine has finished the sound list. 

You can save and reload the PLAY subprogram and any sound list 
you generate with EASYBUG. Be sure to save everything from > 7000 
to >7FFF. This ensures that you have the entry point to the PLAY sub- 
Progam, and can play the sound list using the short program segment 
above. 

Here, in the form used with the Line-by-Line Assembler, is an Assembly 
Language listing of the ‘“PLAY’’ subprogram that the Music Assembler 


loads: 


pu Mens 


er es.» 
= 
Is 


ore mEe-mO<-* R*°| 
DA 
zIuimMOsMo 


BS 

UO) 

m__ 

zz 

—_iaz_ 4 _ «00M*eQ0*]| 
UO) 


A|R|R/A[Y]B 


- CO» Ue. 
Ma diiomo 


d- << _ ®0 
CSC) 


(CEEZLTCIO 


0 Play list 
RO,@>83CC 
@H1,@>83FD 
@H1,@>83CE 


2 
@ST 
‘PLAY 
PL 


>701C 
>7FF8, >7FF8 


Retum to BASIC. 


It would be possible to put the program title in the REF/DEF table in 
this way because the program begins at > 7FBE and uses up all but the 
last eight bytes of memory. The last two lines set both the First and Last 
Free Addresses in Medium Memory to >7FF8. The Last Free Address 
indicates the start of the REF/DEF table. 
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1]3 
1/4 
1/5 
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1|9 
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2/1 
2/2 
2/3 
2|4 
2|8 
2/0 
3]? 
2] 
2/9 
3/0 
3/1 
3/2 
3 
3/4 
3/5 
3/6 
3|7 
3/8 
3/9 
40 
4/1 
412 
4/3 
4/4 
5 
4/6 
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14/8 
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s/1 
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18/6 E|K|({2|8|7|0|@|,|H{1|,{L{1]) 
8|7 2|5|6/+|L|1 
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18|9 E|A|R 
90 
9/1 IN 
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9|3 C] 
9|4 T () 
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9/6 
9|7 
9/8 
asolo PIT/R|+|1 
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